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

Question

Информатика

Пануля

18 октября, 13:52

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

+2

Ответы (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]
end;

for i:=1 to 30 do

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

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]
if (mas[i]=min) then count:=count+1;

end;

writeln (count) ;

end.