Question

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

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.