Массив М (20) заполнить целыми случайными числами от 0 до 10. Вывести его на экран. Подсчитать количество элементов, равных минимальному.

Question

Информатика

Риммушка

24 апреля, 02:25

Массив М (20) заполнить целыми случайными числами от 0 до 10. Вывести его на экран. Подсчитать количество элементов, равных минимальному.

+5

Ответы (1)

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

Марьяныч · Answer 1

Var m:array[1 ... 20] of integer;

a, b, min:integer;

begin

b:=0;

for a:=1 to 20 do

begin

m[a]:=random (11) ;

writeln ('m[', a,']=', m[a]) ;

end;

min:=10;

for a:=1 to 20 do

begin

if m[a]
end;

for a:=1 to 20 do begin

if m[a]=min then b:=b+1;

end;

writeln ('Количество минимальных элементов равно ', b) ;

end.