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

Question

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

Количество чисел не превышает 1000. Введённые числа не превышают 30 000.

Программа должна вывести одно число – минимальное число, оканчивающееся на 4.

Решить в паскаль абс, решение из интернета не работает.

Answer 1

Program pr1;
var
n,min,a,i:integer;
begin
readln(n);
readln(a);
min:=a;
for i:=2 to n do
begin
readln (a);
if aend;
writeln(min);
end.

Comments

ч у ш ь

---

оппа вставить забыла, там после строку "if a<min " надо заменить на

---

а хотя нет секунду

---

Program pr1; var n,min,a,i:integer; begin readln(n); min:=30000; for i:=1 to n do begin readln (a); if (a<min) and (a mod 10=4) then min:=a; end; writeln(min); end.