ваще как я понел это задание то что если ввести массив из 10 элементов например, задать число Z:=1, и M1[9]:=-5 а M1[10]:=1 то должно M1[9]:=-5 переставить на место M1[6]:=-5 а найденое M1[9]:=-5 заменить индексом т.е. M1[9]:=9 но что то неполучаеться ниче посмотрите это задание:Найти последний отрицательный элемент массива, величина которого не превышает заданной величины, заменить его индексом и поставить на место шестого элемента а вот сама работа где ошибка ?
program yxyx;
var Z,i,a,n:integer;
var M1:array[1..20] of integer;
begin
{переменные
M1 – сам массив
Z заданная величина
I Индекс
N кол-во элементов в массиве
A от оператора варианта}
writeln ('выберите способ заполнения, 1-вруч., 2-автом.');
readln (A);
WRITELN ('ВВЕДИТЕ КОЛИЧЕСТВО ЭЛЕМЕНТОВ МАССИВА,не больше 20');
readln(n);
case a of
1:begin
for i:=1 to n do
begin
write ('M[',i,']=');
readln (M1);
end;
end;
2:begin
randomize;
for i:=1 to n do
M1:=random(20);
end;
else begin writeln ('введено не правильное число');
readln;
exit;
end;
end;
writeln('введите Z'); {Заданая величина}
readln(Z);
for i:=n downto 1 do {Найти последний}
begin
if (M1<0) and (M1<Z) {Отрицательный элемент массива}
then
begin
M1[6]:=M1; {Поставить найденый на место 6}
M1:=i; {Заменить его индексом}
end;
end;
for i:=1 to n do write (M1:4); {Вот это строчка что значит так и немогу понять объясните по руссики}
readln;
end.
