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

Question

Информатика

Генаша

3 июля, 11:27

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

+1

Ответы (1)

Знаете ответ на вопрос?

Венуля · Answer 1

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