pascal ABC
const
n=10;
var
a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do a[i]:= Random(100);;
writeln('Элементы массива: ');
for i:=1 to n do writeln(' ',a[i]);
end.
pascal ABC
const
n=10;
var
a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do a[i]:= Random(100);;
writeln('Элементы массива: ');
for i:=1 to n do writeln(' ',a[i]);
end.