Напишите программу в паскале: дано n чисел определить кол-во чисел=минимальному значению
Titan987
2
06.08.2019 20:50
0
Другие вопросы по теме Информатика
scfsdfddPenis
30.05.2020 11:52
Котик0303
30.05.2020 11:53
VovkaGamer228
30.05.2020 11:53
levickai200
30.05.2020 11:53
LamanAchverdiyeva
31.05.2020 12:03
Ro4KKy
26.10.2020 12:00
Avetazatan
26.10.2020 12:00
GMGasanovmm
03.02.2021 21:09
supermax18
03.02.2021 21:11
Популярные вопросы
- Раскройте содержание вопроса: «основные естественнонаучные понятия идеи дискретной...
3 - Язык. сделать текст во вложении.. 2.. перепишите, вставив необходимые предлоги:...
3 - 1. сопоставьте начало и окончание пословиц (напишите соответствующую букву): 1 you...
2 - Творческое . закончите пословицы и поговорки, используя союзы и, да, а, только....
1 - Выполните умножение и деление рациональных дробей ...
1 - Студия дизайна решила сделать оригинальный сувенир – вазу в виде шара с отсеченным...
2 - Число 2018 записывается как ? в римской сс....
3 - На координатном луче отмечены точки a(a/b) и b(m/n). отметьте точки c(a/b + m/n)...
3 - Залежність швидкості реакції від ступені диссоції електролітів. у дві пробірки наливаємо:...
1 - 9по кругу стоят числа 1,2,31,2,3. затем несколько раз осуществляется следующая...
3
var
n,k,i, min: integer;
a: array [1..100] of integer;
begin
writeln ('vvel n');
read (n);
writeln (n);
k:=0;
for i:=1 to n do
read (a[i]);
min:=a[1];
for i:=1 to n do
if a[i]=min then k:=k+1;
writeln (k);
end.