const n=40;
var a:array[1..n] of integer;
i,k: integer;
begin
for i:=1 to n do
a[i]:=random(31);
if a[i] >= 23 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln(k)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
const n=40;
var a:array[1..n] of integer;
i,k: integer;
begin
for i:=1 to n do
begin
a[i]:=random(31);
if a[i] >= 23 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln(k)
end.