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

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

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

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

Var

   A,k,n:integer;

   S:real;

Begin

S:=0;

k:=0;

Write(‘n = ‘);ReadLn(n);

For n:= 1 to n do

    Begin

    Read(A);

    if (A mod 5 = 0)and(A mod 2 <> 0) then

       Begin

       S:=S+A;

       k:=k+1

       End;

    End;

WriteLn(‘k = ‘,k);

WriteLn(‘S = ‘,S);

End.

Пример работы программы:

n = 7

5

15

95

97

90

98

0

k = 3

S = 115