var a:array[1..8] of integer;
i: integer;
begin
for i:=1 to 8 do
a[i]:=random(100);
writeln (i,' элемент: ',a[i])
end
end.
var a:array[1..8] of integer;
i: integer;
begin
for i:=1 to 8 do
begin
a[i]:=random(100);
writeln (i,' элемент: ',a[i])
end
end.