Написать программу которая среди введённых чисел ищет и считает числа кратные 5 )помогите...

Question

Написать программу которая среди введённых чисел ищет и считает числа кратные 5 )помогите пожалуйста))

Answer 1

Var i,n,a,b,s:integer;

begin

writeln('Введите количество чисел в последовательности');

readln(n);

for i:=1 to n do begin

writeln('Введите число номер ', i); read(b);

if b mod 5 = 0 then 

s:=s+1;

end;

writeln('Чисел кратных 5:',s);

end.

Comments

а это точно правильно??

---

а что значит введите число номер?