Информатика. Создать массив, вводя значение с клавиатуры. Вывести на экран элементы, кратные трём и больше числа 10.

Question

Информатика

Антошка

18 апреля, 01:56

Информатика. Создать массив, вводя значение с клавиатуры. Вывести на экран элементы, кратные трём и больше числа 10.

+5

Ответы (1)

Знаете ответ на вопрос?

Вагист · Answer 1

Var

a:array[1 ... 100] of Integer;

i, n, x:Integer;

begin

for i:=1 to 100 do

a[i]:=0;

ReadLn (n) ;

for i:=1 to n do

begin

ReadLn (x) ;

a[i]:=x;

end;

for i:=1 to n do

begin

if (a[i] mod 3 = 0) and (a[i] > 10) then

WriteLn (a[i]) ;

end;

end.