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

Question

Информатика

Анисия

4 июня, 19:14

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

+4

Ответы (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.