Один бит равен одному символу
Не знаю зачем ты писал такие костыли , если вот весь алгоритм
for (i = 1; i<n; i++)
{
if ((mas[i] % 2 == 0) && ((i >= a) && (i <= b)) && ((i>0) && (i<n - 1)))
{
mas[i] = mas[i - 1] + mas[i + 1];
}
}
Глубина 8 бит означает, что на хранение каждого пикселя нужно 8 бит = 1 байт, а всего этих пикселей 800*600 = 480000 -> необходимо 480000 байт = 468.75 кбайт.
Var x:integer;
y:real;
begin
for x:=-5 to 5 do
if (x>1) and (x<3) then begin y:=cos(x); writeln(x,' ',y:2:2); end
else if x<1 then begin y:=sqr(x); writeln(x,' ',y); end
else begin y:=ln(x); writeln(x,' ',y:2:2); end;
end.
Var a:array of Integer; n,i,max,ind:Integer;
begin
Readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
readln(a[i]);
max:=a[0];
ind:=0;
for i:=0 to Length(a) do
if abs(a[i])>abs(max) then
begin
max:=a[i];
ind:=i;
end;
n:=a[0];
a[0]:=max;
a[ind]:=n;
for i:=0 to Length(a) do
write(a[i]:3);
readln;
<span>end.</span>