Пользователь вводит размер массива чисел. Необходимо: заполнить массив целыми положительными и отрицательными числами. Найти в массиве позицию последнего отрицательного элемента и вывести ее на экран. Заменить в массиве все нечётные элементы кратные 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.