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

Question

Информатика

Фетиния

1 марта, 10:51

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

+2

Ответы (1)

Знаете ответ?

Кира · Answer 1

Var A:array[1 ... 200000000] of integer;

J, I, m, n:integer;

Begin

Readln (n) ;

For I:=1 to n do

Read (a[i]) ;

M:=2147483647;

For j:=1 to n do

If (a[j] mod 3=0) and (a[j]
If m mod 3=0 then writeln (m) else writeln ('такие числа отсутствуют') ;

End.