Ответы на вопрос:
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.
Популярно: Информатика
-
ponia24.01.2020 11:50
-
Шмигельська25.06.2021 17:56
-
sdfdgrty6623.02.2021 04:14
-
ВЛАД9887809.04.2023 03:01
-
Мери778819.06.2020 05:40
-
lilyaepifanova04.04.2021 19:20
-
Grif6931.12.2020 00:56
-
nastyarapuntseozgwc210.02.2021 16:23
-
Geniud31.05.2023 11:02
-
veragerasimova308.09.2021 00:05