Составить программу.
Введите 7 чисел. Найти сумму больше 3 и произведение меньше 3.

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

Составить программу.
Введите 7 чисел. Найти сумму больше 3 и произведение меньше 3.

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

Program semchisel;

Var a,i,sum,proiz:integer;

Begin

   proiz:=1;   sum:=0;

   for i:=1 to 7 do

      begin

         read(a);

         if (a<3) then proiz:=proiz*a;

         if (a>3) then sum:=sum+a;

      end;

Writeln(‘proiz=’, proiz, ‘ ‘, ‘sum=’,sum);

Readln;

End.