Нужно сложить все числа и разделить на количество самих чисел. Например среднее арифметическое чисел 8, 2 и 20 будет 10, потому что (8+2+20):3=10
1байт=8бит;
1Килобайт=1024байта;
1Мегабайт=1024Килобайта;
1Гигабайт=1024Мегабайта;
2^28=268435456 бит;
268435456\8=33554432 байт;
33554432\1024=32768Килобайт;
32768\1024=32Мегабайт;
32\1024=0.03125Гигабайт.
Program n1;
var a,i,sum: integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a);
if a mod 2=0 then sum:=sum+a;
end;
writeln(sum);
end.
Решение и результат выполнения на паскале смотри во вложении