Написать программу в Pascal даны целые числа а1...аn. Если в данной

program zz1;

const n = 10;  // задаем количество частей в массиве

var  i, k, s, p:integer; // задаем переменные целого типа

k1:real;

m:array [1..n] of integer;

begin

for i:=1 to n do  // получаем n чисел случайных и записываем их в массив

m[i]:=random(51)-25;

for i:=1 to n do  // выводим приобретенный массив на экран

write(m[i], );

writeln;    // переходим на новейшую строку для вывода ответа

for i:=1 to n-1 do  

begin

k:=m[i];s:=m[i+1];

if (s mod 2 = 0)and(k mod 2 = 1) then p:=1;

end;

if p = 1

then for i:=1 to n do if m[i]gt;0 then write(m[i], )

else for i:=1 to n do if m[i]lt;0 then write(m[i], ); //выводим ответ

end.