Сформировать массив А из 30 случайных целых чисел в диапазоне от-30 да 50. Сформировать...

Question

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

Answer 1

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</p>

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.