Var
a, n, i, s: integer;
begin
for i := 1 to 10 do
begin
readln(a);
if a mod 2 = 0 then begin
s := s + a;n := n + 1;
end;
end;
writeln('Сумма четных = ', s);
writeln('Количество четных = ', n);
writeln('Среднее арифметическое четных', s / n);
end.
Program Program1;
var
i,n,y:integer;
begin
write('Введите значение n: ');
readln(n);
i:=2;
y:=1;
while i<=2*n do
begin
y:=y*i;
inc(i,2);
end;
writeln('y=',y);
end.
Тебе на каком языке программирования писать? Могу сказать принцип.
Вводишь конструкцию, которая проверяет, кратно ли число 7. Если да, то счетчик к увеличивай на 1, а к сумме(которая изначально равна нулю) прибавляй это число.
На с++ выглядит так:
if(chislo%7==0){
k++;
sum=sum+chislo}