Дан массив, определите количество минимальных элементов в массиве.
Gdbxfg
2
04.10.2019 03:20
0
Другие вопросы по теме Информатика
Bogdasha06102015
20.02.2021 09:40
bakinka005
20.02.2021 09:38
Abdusalamova2004
20.02.2021 09:37
filbert04
28.12.2019 21:13
theodoorka
28.12.2019 20:13
Eool
28.12.2019 21:53
fogeimof
28.12.2019 21:46
wwwvadimsokol
19.05.2019 15:50
Популярные вопросы
- Y=-2x+1, 2\1 x-3, y=o, 5x решить по примеру с полным объяснением...
2 - Составить 5 примеров на исчесляемое и 5 на не исчесляемое быстрее...
1 - сделать 3 задания по геометрии чтобы были чертежи углов и т.д....
2 - тест по статье Отцы и дети...
3 - Доведіть, що при будь-якому ne N значення виразу 2-10 + 10 -42 кратне...
1 - Қазақ тілі 2 сынып 50 жаттығу 60 бет?...
2 - Приведите одночлен 2,6 а^2b^4c^5(-1 3/13)bc^5d^3 к стандартному...
2 - Знать содержание произведени победителе, или Просчёт Чингисхана»...
3 - Який із князів у зовнішній політиці покладався на встановлення шлюбних...
2 - При взаємодії 21,2 г натрій карбонату з кальцій хлоридом утворилося...
1
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.