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

Question

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

Comments

На паскале пойдет?

Answer 1

Я не уверен что пройдет все тесты,но лови.
program vichelnenieVK ;var o,a,i,b,c:integer;beginb:=30001;c:=0;read(a);for i:=1 to a do beginread(o);if (o
end.

Comments

vichelnenieVK ;var o,a,i,b,c:integer;beginb:=30001;c:=0;read(a);for i:=1 to a do beginread(o);if (o
end.

---

program vichelnenie;

var o,a,i,b,cinteger;

begin

b=30001;

c=0;

read(a);

for i=1 to a do

begin

read(o);

if (ob) and (o mod 3 = 0 )and (o30001) then

b=o;

c=c+1;

if c=1000 then

break

end;

writeln( b);

end.