Question

Дан целочисленный массив из 20 элементов. Элементы могут принимать значения от 0 до 202. Найти элементы массива кратные 7.

Answer 1

for i:=0 to 19

begin

if (a[i] mod 7 = 0)

then writeln(a[i])

end