Пользователь вводит размер массива чисел. Необходимо: заполнить массив целыми положительными и отрицательными числами. Найти в массиве позицию последнего отрицательного элемента и вывести ее на экран. Заменить в массиве все нечётные элементы кратные 4 на 1, вывести полученный массив на экран.
var i,b,c,n:integer;
var a:array[1..999] of integer;
begin writeln('Из скольки элементов будет состоять массив?');
readln(n);
begin
for i:=1 to n do begin
writeln();
writeln('Введите',' ',i,'-й',' ','элемент массива');
readln(a[i]);
end;
writeln();
writeln('Исходный массив:');
write('[', ' ');
for i:=1 to n do
write(a[i],',',' ');
end;
write(']');
writeln();
for i:=1 to n do begin
if a[i]<0 then
b:=i;
end;
writeln('Позиция последнего отрицательного числа в массиве =',' ',b);
for i:=1 to n do begin
if (a[i] mod 4 = 0) and (a[i] mod 2<>0) then
a[i]:=1;
end;
writeln();
writeln('Отредактированный массив:');
write('[', ' ');
for i:=1 to n do begin
write(a[i],',',' ');
end;
write(']');
end.