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

Question

Информатика

Ариел

26 июня, 19:16

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

+1

Ответы (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.