Организовать цикл для ввода 7-ми чисел и подсчитать, сколько из них делится на 9

Question

Информатика

Аполлинария

4 января, 03:43

Организовать цикл для ввода 7-ми чисел и подсчитать, сколько из них делится на 9

+1

Ответы (1)

Знаете ответ?

Лукаха · Answer 1

Program f1;

var a: array [1 ... 7] of integer;

k, i : integer;

for i:=1 to 7 do

readln (a[i]) ;

for i:=1 to 7 do

if a[i] mod 9=0 then k:=k+1;

writeln (k) ;

end.