Напишите программу в paskalabc , которая в последовательности натуральных чисел определяет максимальное чётное число. программа получает на вход количество чисел в последовательности , а затем сами числа . в последовательности всегда имеется чётное число. количество чисел не превышает 1000. введённые числа не превышают 30000.программа должна вывести одно число-максимальное чётное число . пример работы программы : входные данные : 3,10,99,42 выходные данные: 42

Ответы

суады 05.10.2020 16:21

Var
N,A,M:word;
Begin
Read(N);
M:=0;
For N:=1 to N do
    Begin
    Read(A);
    if (A>M)and(A mod 2 = 0) then M:=A;
    End;
Write(M)
End.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

annadubinkina 11.04.2021 15:26

Scvetocheek1 12.05.2020 07:44

npapriko 12.05.2020 07:43

Расположите по порядку оформление оглавления...

длвшуаблв 12.05.2020 07:43

5five3353 12.05.2020 07:43

артем1488337 12.05.2020 07:43

Информатика 1 бжб 4 токсан 7 сынып...

zaydfudimp0dicv 12.05.2020 07:43

хэюяфй 12.05.2020 07:43

elinochka0707 12.05.2020 07:43

1234567891241 26.02.2020 17:08

Напишите программу для S=(a+b)×2 на языке С++...