На­пи­ши­те про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет мак­си­маль­ное число, крат­ное 4. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в по­сле­до­ва­тель­но­сти, а затем сами числа. В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, крат­ное 4. Ко­ли­че­ство чисел не пре­вы­ша­ет 1000. Введённые числа не пре­вы­ша­ют 30 000. Про­грам­ма долж­на вы­ве­сти одно число — мак­си­маль­ное число, крат­ное 4.

При­мер ра­бо­ты про­грам­мы:

Вход­ные дан­ные Вы­ход­ные дан­ные
3
8
16
11 16

ОТДЕЛ Задание+;ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;ПЕР  массив: ДОСТУП К РЯД ИЗ ЦЕЛ;  сч, макс: ЦЕЛ;УКАЗ  СОЗДАТЬ(массив, Приём.Число());  ОТ сч := 0 ДО РАЗМЕР(массив^) - 1 ВЫП    Вывод.Цепь("^");    массив[сч] := Приём.Число()  КОН;  макс := 0;  ОТ сч := 0 ДО РАЗМЕР(массив^) - 1 ВЫП    ЕСЛИ массив[сч] ОСТАТОК 4 = 0 И массив[сч] > макс ТО      макс := массив[сч]    КОН  КОН;  Вывод.ЧЦел("^%d", макс, 0, 0, 0)КОН Задание.