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