Сформировать массив А из 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.