program test;
const n= 9;
var i,c:integer;
a:array[0..n] of integer;
begin
for i:=0 to n do
a[i]:= random(9);
for i:=0 to 6 do
c:=random(n);
writeln(a[c]);
end;
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program test;
const n= 9;
var i,c:integer;
a:array[0..n] of integer;
begin
for i:=0 to n do
a[i]:= random(9);
for i:=0 to 6 do
begin
c:=random(n);
writeln(a[c]);
end;
end.