Ввести с клавиатуры n целых чисел. Найти произведение и количество чисел, которые при...

Question

Ввести с клавиатуры n целых чисел. Найти произведение и количество чисел, которые при делении на 7 дают остаток 5. Программу нужно написать на языке Паскаль.

Answer 1

Var n,p,k,b,c:integer;
begin
k:=0;
p:=1;
writeln('Введите количество чисел');
readln(n);
writeln('Введите числа');
for b:=1 to n do
begin
readln(c);
if (c mod 7 =5) then
begin
k:=k+1;
p:=p*c;
end;
end;
if (k>0) then begin
writeln('Произведение равняется ',p);
writeln('Количество чисел равняется ',k);
end;
end.