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