дан массив из 30 чисел, найти количество минимумов

Question

Информатика

Бландина

27 июня, 07:34

дан массив из 30 чисел, найти количество минимумов

+3

Ответы (2)

Знаете ответ на вопрос?

Глафира · Answer 1

var

mas:array[1 ... 30] of integer;

min, i, count:integer;

begin

min:=maxint;

randomize;

for i:=1 to 30 do

begin

mas[i]:=random (100) ;

if (mas[i]
if (mas[i]=min) then count:=count+1;

end;

writeln (count) ;

end.

Карп · Answer 2

var

mas:array[1 ... 30] of integer;

min, i, count:integer;

begin

min:=maxint;

randomize;

for i:=1 to 30 do

begin

mas[i]:=random (100) ;

if (mas[i]
end;

for i:=1 to 30 do

if (mas[i]=min) then count:=count+1;

writeln (count) ;

end.