Дан массив из 20 целых чисел. Определите, сколько элементов этого массива имеют максимальное значение.
ekaterina5velikaya
3
16.12.2020 18:45
0
Другие вопросы по теме Информатика
dima1031
08.02.2021 17:41
максимус67
08.02.2021 17:40
2a741
08.02.2021 17:39
aibekauezhanme
26.08.2019 11:00
evgen22region
05.06.2019 21:30
marina4010
05.06.2019 21:30
Crackstack18
25.07.2019 22:00
Опооовоа
09.08.2019 08:50
natalikc
09.08.2019 08:50
Популярные вопросы
- Математика 6 сынып 1298есеп 153 бет...
1 - Раскройте скобки -3(2а+3b+6c+4d)...
3 - Фирма ,зарегистрированная в РФ ,ввозит и перемещает по процедуру выпуска для внутреннего...
1 - Если будете внимательно то найдете пртдагательные.Подчеркните их вместе с именами...
3 - Как ведёт себя Лель со Снегурочкой ?...
1 - В школе 650 мальчиков. 130 из них провалили тест по физкультуре. Какой процент мальчиков...
1 - Установите соответствие между головным убором и его названием...
1 - Составь комплекс утренней гимнастики (6-7упражнений)...
2 - Признак и применени Реализация Виды картографических изображений...
3 - Определи заряд ядра, получившегося в результате β-распада:...
3
var
m: array [1..10] of integer;
max, k, i: integer;
begin
for i := 1 to 10 do
read(m[i]);
max := m[1];
k := 1;
for i := 2 to 10 do
if m[i] > max then
begin
k := 1;
max := m[i]
end
else
if m[i] = max then
inc(k);
write(k)
end.