Question

Напишите программу к этой блок-схеме на языке программирования Паскаль .Очень

Answer 1

begin

 var n := ReadInteger('Количество чисел:');

 var sa: integer := 0;

 var k: integer := 0;

 for var i := 1 to n do

 begin

   var a := ReadInteger('Введите число:');

   if (a mod 5 = 0) and (a mod 7 <> 0) then

   begin

     sa += a;

     k += 1;

   end;

 end;

 if k = 0 then

   Print('K = 0')

 else

   Print('Результат:', sa / k);

end.