Const N = 40;
var
a:array[1..N] of integer;
i,j,s:integer;
st:real;
begin
for i:=1 to N do readln(a[i])
s:=0; st:=0;
for i:=1 to N do
if (a[i]>9)and(a[i]<100)and(a[i] mod 2=0) then
begin s:=s+1; st:=st+a[i];end;
if s>0 then writeln('Среднеарифметическое = ',st/s:4:1)
else writeln('Искомых чисел нет');
end.
Пример (для n=20):
<span>416
295
-848
-881
-325
-690
139
-220
992
607
-998
400
720
-536
757
-123
-559
-941
22
-748
Среднеарифметическое = 22.0</span>
K, M, G и T - это названия размерностей информации: Килобайт, Мегабайт, Гигабайт и Терабайт соответственно. Переменная A служит для временного "принятия" количества байт, которые переведутся в K, M, G и T.
Как бы проще объяснить, откуда 1024 - не знаю. В информатике так устроено, что в бит - это 1 элемент, байт - 8 битов, килобайт - 1024 байт и с этого момента последующая размерность будет иметь 1024 информации предыдущей размерности, то есть мегабайт - 1024 килобайт, гигабайт - 1024 мегабайт и так далее. Вообще - это стоит просто запомнить.
Это что за шифр?log без параметров не используется