const n = 450;
var
i,min,s: integer;
arr:array[1..n] of integer;
begin
min:=999;
s:=0;
for i:=1 to n do begin
arr[i]:=random(900)+100;
if arr[i]<=min then begin
min:=arr[i];
end;
for i:=1 to n do
if arr[i]=min then s:=s+1;
writeln(s);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
const n = 450;
var
i,min,s: integer;
arr:array[1..n] of integer;
begin
min:=999;
s:=0;
for i:=1 to n do begin
arr[i]:=random(900)+100;
if arr[i]<=min then begin
min:=arr[i];
end;
end;
for i:=1 to n do
if arr[i]=min then s:=s+1;
writeln(s);
end.