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

Организовать цикл для ввода 7-ми чисел и подсчитать ,сколько из них делится на 9
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы