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.