В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
mariia1706
mariia1706
12.11.2022 06:22 •  Информатика

Втаблице dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (dat[1] – данные за первый день, dat[2] – за второй и т. определите, какое число будет напечатано в результате работы следующей программы. текст программы на трёх языках программирования. алг нач целтаб dat[1: 10] цел k, m dat[1] : = 12 dat[2] : = 15 dat[3] : = 17 dat[4] : = 15 dat[5] : = 14 dat[6] : = 12 dat[7] : = 10 dat[8] : = 13 dat[9] : = 14 dat[10] : = 15 m : = 0 нц для k от 1 до 10 если dat[k]> m то m : = dat[k] все кц вывод m кон dim dat(10) as integer dim k,m as integer dat(1) = 12: dat(2) = 15 dat(3) = 17: dat(4) = 15 dat(5) = 14: dat(6) = 12 dat(7) = 10: dat(8) = 13 dat(9) = 14: dat(10) = 15 m = 0 for k = 1 to 10 if dat(k)> m then m = dat(k) endif next k print m var k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 12; dat[2] : = 15; dat[3] : = 17; dat[4] : = 15; dat[5] : = 14; dat[6] : = 12; dat[7] : = 10; dat[8] : = 13; dat[9] : = 14; dat[10] : = 15; m : = 0; for k : = 1 to 10 do if dat[k]> m then begin m : = dat[k] end; writeln(m); end.

Показать ответ
Ответ:
famapsix2015
famapsix2015
01.10.2020 21:06
Программа ищет максимальное значение.
Из 10 приведённых значений максимальное значение равняется 17.
ответ:17
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота