БЫСТРОЕ РЕШЕНИЕ 17 ЗАДАНИЯ ЕГЭ Информатика 2021 на Pascal

Спасибо за просмотр :) Если есть вопросы - пишите комментарии! Код-шаблон: var i, (тут min или max) kol: integer; begin min:= 10000000 или max:= 0; kol:= 0; for i:= (диапазон) do begin if (условие ваше) then begin kol:= kol + 1; if i ‹ min then ИЛИ if i › max then max:= i min:= i; end; end; writeln(kol); writeln(min) или writeln(max); end.