Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6 и количество. Паскаль, прошу
AnonimusPro:
Количество чисел в последовательности известно?
Ответы
Ответ дал:
1
program test;
const N=5;//любое число можешь ввести
var a:array [1..n] of integer;
i,k,s: integer;
begin
for i:=1 to n do
read (a[i]);
k:=0;
s:=0;
for i:=1 to n do
if a[i] mod 6=0 then begin k:=k+1; s:=s+a[i] end;
write('сумма= ',s,' количество= ',k)
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад