1
Var k, m: integer; Dat: array[1..11] of integer; Begin Dat[1] := 20; Dat[2] := 27; Dat[3] := 19; Dat[4] := 28; Dat[5] := 26; Dat[6] := 22; Dat[7] := 24; Dat[8] := 28; Dat[9] := 26; Dat[10] := 21; Dat[11] := 27; m := 0; for k := 1 to 11 do if Dat[k] < 25 then begin m := Dat[k]; end; writeln(m); End. Что выведет программа?
Варианты ответов и условие задания
Проверка ответа и решение
Ответ скрыт — доступен в Telegram-боте
Получить ответ в боте Как проверить правильный ответ на задание?
Для моментальной проверки ответов на домашние задания, контрольные и тесты МЭШ, ЦДЗ, РЭШ и Skysmart используйте бота KING.ANSWERS. Помогает быстро сверить решения и разобрать ошибки в тестовых материалах.