Question

Дан целочисленный массив из 20 элементов. Элементы могут принимать значения от 0 до 202 Найти элементы массива кратные 7. ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ!!)

Answer 1

const N = 20;

var i,j,k:integer;

a:array [1..N] of integer;  

begin

for i:=1 to N do  

 readln(a[i]);  

…

end.

Объяснение: