Предмет: Информатика,
автор: qwertypower02
Помогите пожалуйста!
Дан массив, определите количество минимальных элементов в массиве.
Ответы
Автор ответа:
2
const n=10;
var a:array [1..n] of integer;
i,m,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(10);
write (a[i],' ')
end;
writeln;
m:=a[1];
for i:=2 to n do
if a[i]<m then m:=a[i];
for i:=1 to n do
if a[i]=m then k:=k+1;
writeln (k)
end.
Похожие вопросы
Предмет: Математика,
автор: MishaKapucino220
Предмет: Алгебра,
автор: Gp3sHn1K
Предмет: Биология,
автор: emmaaro228
Предмет: Геометрия,
автор: g2hgfcaKikova
Предмет: Алгебра,
автор: диана361