Var n, a, k7, ost: longint; begin readln(n); k7 := 0; ost := 0; for i := 1 to n do begin read(a); if (a mod 7 = 0) then inc(k7, a) else inc(ost); end; writeln('Сумма чисел, кратных семи, равна ', k7); writeln('Количество оставшихся чисел равно ', ost); end.
n, a, k7, ost: longint;
begin
readln(n);
k7 := 0;
ost := 0;
for i := 1 to n do begin
read(a);
if (a mod 7 = 0) then
inc(k7, a)
else
inc(ost);
end;
writeln('Сумма чисел, кратных семи, равна ', k7);
writeln('Количество оставшихся чисел равно ', ost);
end.
-------------------------------------------------------------------------------------------------------
Настоящий мастер — это вечный ученик.