Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
yulia14683
26.08.2022 21:51 •
Информатика
Уровень c. введите массив с клавиатуры и найдите (за один проход) количество элементов, имеющих максимальное значение. пример: массив: 3 4 5 5 3 4 5 максимальное значение 5 количество элементов 3
Показать ответ
Ответ:
olena4519
13.08.2020 17:48
Var
mas: array[1..7] of integer;
k, i, MAX:integer;
Begin
for i:=1 to 7 do
Begin
writeln('Введите число');
readln(mas[i]);
end;
MAX:=mas[1];
k:=1;
for i:=2 to 7 do
Begin
if mas[i] > MAX
then
Begin
MAX:=mas[i];
k:=1;
end
else
if MAX=mas[i]
then k:=k+1;
end;
writeln();
writeln('Максимальное значение = ', MAX);
writeln('Количество элементов = ', k);
readln();
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Alisa11221122
16.08.2020 08:26
Что такое контроллер двигателя?Для чего он служит?...
mightwood1337
29.11.2022 04:28
Создать запросы в режиме SQL :SELECT FROM; SELECT*FROM WHERE ; SELECT []FROM WHERE 1) Выбрать все поля из таблицы Клиенты;2) Вывести поля (Фамилия и Телефон) из таблицы...
jovenkonatalia
14.05.2020 11:13
В таблице представлены изображения...
Kaonix
19.05.2022 05:49
Как скачать стим на школьный пк на уроке информатики?...
Gonsh1240
18.10.2021 13:50
Какое оружие в мобильной игре standoff 2 имеет наибольшую отдачу? ...
misszephir25
16.02.2022 12:57
Твір опис природи мелітополя...
ванюшаплай
14.05.2020 21:09
Соедини предложения с их моделями...
bedboy777
29.01.2021 18:33
307. Прочитайте десятичные дроби: а) 3,6;12,5; 392,3;6) 6,43;38,17; 983,50;в) 6,181; 0,018; 314,403;77.7:3,9105,0304;1,8;0,47;0,2006СЯТИЧНО...
NIKCHplay
14.03.2020 06:36
Составьте рассказ на тему: «Мой университет»(письменно). Используйте данные имена существительные в различных падежах. Здание, вестибюль, коридор, лаборанты, успеваемость,...
alina17anilaalina
11.07.2021 00:41
Переведите предложения в косвенную речь. 1. The students have said, «We had two tests last week.» 2. Her daughter said, «I am not listening to music now.» 3. My friend...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
mas: array[1..7] of integer;
k, i, MAX:integer;
Begin
for i:=1 to 7 do
Begin
writeln('Введите число');
readln(mas[i]);
end;
MAX:=mas[1];
k:=1;
for i:=2 to 7 do
Begin
if mas[i] > MAX
then
Begin
MAX:=mas[i];
k:=1;
end
else
if MAX=mas[i]
then k:=k+1;
end;
writeln();
writeln('Максимальное значение = ', MAX);
writeln('Количество элементов = ', k);
readln();
end.