Cрочно кто сможет сделать кто-нить 30 smalldata контрольная работа max 15 . дедлайн 23 апр. 18: 01 ограничение времени 1 секунда ограничение памяти 64mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt оксана рада, что вы отважно учились весь этот год, и приготовила несколько испытаний для вас. сперва она решила проверить, насколько хорошо вы «подружились» с функцией filter и объектом stdin. оксана просит вас проанализироватьпоток «маленьких данных», полученных от низконагруженного сервера сбора статистики. вы должны получить размах (разница между максимальным и минимальным) чисел, входящих в заданный диапазон, для каждой выборки крайне важных данных. если размах найти невозможно, считайте его равным -1. формат ввода в первой строке записано два натуральных числа x, y. во всех последующих строках записано некоторое количество натуральных чисел, разделённых пробелами. формат вывода для каждой строки требуется вычислить размах чисел, входящих в диапазон [x, y] (границы включены). пример 1 ввод вывод 2 5 1 2 3 4 5 6 3.0 пример 2 ввод вывод 3 7 3 6 9 1 8 3.0 -1
В начале задаем значение max = 0, потому что рассматриваем последовательность натуральных чисел ( 1 и больше), то есть первое же натуральное четное будет записано в max
В конце выводим ьфч только если он не равен нулю, тоесть в последовательности было натуральное четное число!
program z1;var n, i, x, max: integer;beginmax := 0;readln(n);for i := 1 to n dobegin read(x); if (x mod 2 = 0) and (x > max) then max := x;end;if max > 0 then writeln(max) else writeln ('Не таких чисел');end.