Const n=10;
var
a: array[1..n] of integer;
sa: real;
k: integer;
i: byte;
begin
sa:=0; k:=0;
for i:=1 to n do begin;
read (a[i]);
if a[i] mod 4 =0 then begin
sa:=sa+a[i];
k:=k+1;
end;
end;
sa:=sa/k;
writeln;
writeln ('Среднее значение элементов, кратных четырем, = ',sa);
end.
----------------------------------
Пример:
4 6 8 10 12 16 14 18 20 22
Среднее значение элементов, кратных четырем, = 12
<span>Обработку информации в компьютере осуществляет процессор.
Память компьютера предназначена для хранения информации.
</span>
S=int(input())
m=0
while s!=0:
m+=s%10
s=s//10
print(m)
В теории HDMI если чего нового не изобрели