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

Question

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

НА паскале !!!

Сергей Матяшов · Accepted Answer

program t_t; 
uses crt; 
const k=1000; 
var m:array[1..k] of integer; 
b,l,min:integer; 
begin 
clrscr; 
randomize; 
writeln('kol-vo shisel:'); 
read(b); 
for l:=1 to b do begin 
m[l]:=random(30000); 
writeln(m[l]); 
end; 
min:=m[1]; 
for l:=1 to b do 
if ((min>m[l]) and (m[l] mod 10=4)) then min:=m[l]; 
writeln('min=',min); 
end.

Yula Bobrovskaya · Answer

if a mod 10 = 4 число оканчивается на 4

Дмитрий Славкин · Answer

кажется кто то егэ не сдаст)) ) 
 
по модулю 10 бери