Question

Помогите с информатикой!( нужно оформить задачу в Паскале
Определить количество минимальных чисел случайной последовательности 450 трехзначных чисел

Answer 1

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.