<u>4 строчка:</u> отсутствует ";"
<u>4 строчка:</u> write вместо writeln, чтобы не было переноса строки (так как считывание данных должно быть в виде:
<em>write();</em>
<em>readln(a);</em>
<u>10 строчка:</u> отсутствует ";"
5,5Мбайт=5,5*1024Кбайт=5,5*1024*1024байт=5767168байт
7Гбайт=7*1024Мбайт=7*1024*1024Кбайт=7340032Кбайт
3Байта=3*8бит=24бит
1/2Мбайт=1/2*1024Кбайт=1/2*1024*1024байт=524288байт
2*4*6*8=384.
Я думаю так числа чётные. И произведение четных чисел на промежутке от 3-9.
a={}
s=0.0
n=30
k=0
for i in 1..n
a[i]=rand(1..100)
s=s+a[i]
end
s=s/30
for i in 1..n
if (a[i] > s)
k=k+1
end
end
p k