Лучшие помощники
- Megamozg 2195 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 875 б
- Dwayne_Johnson 850 б
14 октября 2022 18:45
990
Дан массив из десяти целых чисел. Определите, сколько элементов этого массива имеют максимальное значение
1
ответ
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.
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.
0
·
Хороший ответ
14 октября 2022 18:45
Остались вопросы?
Еще вопросы по категории Информатика
Каким образом могут быть получены цифровые графические объекты...
1. Заражение компьютерными вирусами может произойти в процессе: а) Печати на принтере в) Работы с файлами с) Форматирования дискеты г) Выключение к...
В шифре Цезаря каждый символ заменяется на другой символ, второй по счету в алфавите после данного, с цикличностью. То есть символ A заменяется на В,...
Выполните вычитание двоичных чисел 1. 11010-1101= 6. 10111-1001= 2. 1101-110= 7. 111011-11001= 3. 1101-111= 8. 110111-11100= 4. 10001-1011= 9. 1111...
как называется часть памяти компьютера в которую поподает скопированный и вырезанный фрагмент текста?...
Все предметы