На­пи­ши­те про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел...

Question

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

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

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

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
  сч, макс: ЦЕЛ;

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

КОН Задание.