Помогите пожалуйста 30 баллов Напишите программу, которая в последовательности...

0 голосов
15 просмотров

Помогите пожалуйста 30 баллов Напишите программу, которая в последовательности натуральных чисел определяет самое маленькое число в последовательности, кратное 4 и оканчивающихся на 6 Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4 и оканчивающееся на 6 Количество чисел не превышает 100 Введённые числа по модулю не превышают 300 Программа должна вывести одно число: определяет самое маленькое число в последовательности, кратное 4 и оканчивающихся на 6 Пример работы программы: Входные данные Выходные данные 16 5 56 25 16 46 36


Информатика (314 баллов) | 15 просмотров
Дан 1 ответ
0 голосов

var a,n,i,max:integer;

begin

readln(n);

readln(max);

for i:=1 to n-1 do

     begin

     readln(a);

 if ((a< max) and (a mod 4 = 0) and (a mod 10 = 6)) then

       begin

       max:=a;

 end

 

     end;

writeln(max);

end.

(150 баллов)