Question

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

Answer 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.