Сформировать массив А из 30 случайных целых чисел в диапазоне от-30 да 50. Сформировать массивы С, В которые содержат: массив В - четные элементы из массива А в порядке их следования в массиве А, массив С - отрицательные элементы массива А в порядке, обратному их следованию в массиве А.

var

i, j, k:integer;

a, b, c:array [1 ... 30] of integer;

begin

randomize;

j:=0;

k:=0;

for i:=1 to 30 do

begin

a[i]:=random (80) - 30;

if a[i] mod 2 = 0 then

begin

j:=j+1;

b[j]:=a[i]

end

end;

for i:=30 downto 1 do

if a[i]<0 then

begin

k:=k+1;

c[k]:=a[i];

end;

for i:=1 to j do

writeln (b[i]) ;

for i:=1 to k do

writeln (c[i]) ;

end.