Ключевое слово "array" написано с ошибкой
program n_1;
var i: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i], ' ');
end.
Если я правильно рассуждаю,то получается так - 24 = 2 ^I
I=5
5*200 = 1000 \8= 125 байт
program xxx;
<span>const n=30;
</span>
<span>var
a : array [1..n] of integer;
i, kn, kd : integer;
begin
</span>
<span> readln(n);
</span>
<span> kn:=0;</span>
<span> kd:=0;
for i:=1 to n do
begin
</span>
<span> write('a[',i,']=');
</span>
<span> readln (a[i]);</span>
<span> if a[i]=0 then kn:=kn+1;</span>
<span> if a[i]=2 then kd:=kd+1;
end;</span>
<span><span> for i:=1 to n do
</span> write(a[i], ' ');
</span>
<span> writeln();
writeln('Количество чисел равных 0 -',kn);</span>
<span><span> writeln('Количество чисел равных 2 -',kd);</span>
readln();
end.</span>