Вопрос от посетителя:
Сформировать массив А из 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.