1)массив из 10 элементов заполняем случайными числами до 125. затем выводим массив на экран в столбик. 2)заполнить одномерный массив из 10 чисел по формуле b[i]: =10-2*i . затем вывести массив на экран.

1) var a: array [1..10] of integer;

i,s:integer;

begin

Randomize;

writeln('Массив: ');

for i:= 1 to 10 do

begin

a[i]:=random(126);

writeln (a[i]);

end;

end.

2) var a: array [1..10] of integer;

i,s:integer;

begin

writeln('Массив: ');

for i:= 1 to 10 do

begin

a[i]:=10-2*i;

writeln (a[i]);

end;

end.