1)Массив из 10 элементов заполняем случайными числами до 125. Потом выводим

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.