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

1 Январь 0001



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

  • только последовательность обязательно должна заканчиваться 0 и предпоследнюю строчку можешь не писать, она для того чтобы был виден результат, это ГИА да? если да, какой регион?

    var ch, max:longint;
    begin
    max:=0;
    readln(ch);
    while ch<>0 do begin
    if (ch>max) and (ch mod 4=0) then
    max:=ch;
    readln(ch);
    end;
    writeln(max);
    readln;
    end.

  • var
    a,b,max,i:integer;
    begin
    read(a);
    max:=0;
    for i:=1 to a
    do
    begin
    read(b);
    if (b mod 4=0) and ((b>max) or (max=0))
    then
    max:=b;
    read(b);
    end;
    write(max);
    end.







Информатика

Комментарии закрыты.