CONST N=5;
var
x:real;
i:integer;
ar:array[1..N] of real;
begin
for i:=1 to N do begin
readln(ar[i]);
x:=x+ar[i];
<em>end;</em>
x:=x/i;
for i:=1 to N do if (ar[i] < x) then write(ar[i],' ');
<span>
end.</span>
<span><span>
Наверно так:
1Мб = 1024Кб ; 1/512 от 1024 = 2Кб*1024 = 2048Байт*8=16384бит
N = 2^i ; M = K*i ; i = M/K ; M = 16384бит ; K = 2048 ;
i = 16384/2048 = 8 бит - обьем одного символа
N = 2^8 = 256</span></span>
Var i,q:integer;s:real;a:array[1..10]of integer;beginfor i:=1 to 10 do begina[i]:=random(100);s:=s+a[i];end;s:=s/10;for i:=1 to 10 do beginwriteln(a[i]);if a[i]>s then q:=q+i;end;writeln(q);end.
По алфавиту! Буква "Г" - четвертая в алфавите; Буква "А" - первая; Буква "Р" - восемнадцатая; Буква "И" - десятая; Буква "Н" - пятнадцатая.
Вот и всё)
var n,i,rez:integer;
begin
write('Введите n: ');
readln(n);
rez:=0;
for i:=1 to n do
if odd(i) then rez:=rez+i
else rez:=rez-i;
writeln('rez=',rez);
end.