var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
a[i]:=random(9)+1;
write(a[i],' ')
end
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(9)+1;
write(a[i],' ')
end
end.