Заданное с клавиатуры n чисел. Подсчитать произведение этих чисел и количество чисел, которые кратны 5. Используемый цикл While.

Вопрос школьника по предмету Информатика

Заданное с клавиатуры n чисел. Подсчитать произведение этих чисел и количество чисел, которые кратны 5. Используемый цикл While.

Ответ учителя по предмету Информатика

Program n1;

var n,a,k,i: integer;

p: real;

begin

write(‘n=’);

readln(n);

i:=0;

k:=0;

p:=1;

while(i<>n) do

begin

write(‘a[‘,i+1,’]=’);

readln(a);

p:=p*a;

if a mod 5=0 then k:=k+1;

i:=i+1;

end;

writeln(‘p=’,p);

writeln(‘k=’,k);

end.