Question

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

Answer 1

Program prog;

var

n,min,a,i:integer;

begin

readln(n);

readln(a);

min:=a;

for i:=2 to n do

begin

readln (a);

if a<min then min:=a;

end;

writeln(min);

end.