помогите пожалуйста сделать программу через массивы ( желательно по Паскалю)!!!

Question

Нужно найти наименьшее среди кратных трём. Не могу составить нормальный цикл. Подскажите пожалуйста.

Руслан Ламан · Accepted Answer

min:=30000; 
for i:=1 to n do 
if (a [ i ] mod 3 = 0 ) and (a [ i ] <min)>30000 then writeln('min= ',min);

Ольга Данилова · Answer

В вышеописанном примере ошибка. 
 
Вот. 
 
var 
 a: array[1..10] of Integer; 
 j, min: Integer; 
 
min:=9999999999; 
for j:=1 to 10 do 
 if (a[j] mod 3 = 0) and (a[j] < min) then min:=a[j]; 
writeln('min= ', min);