<span>1 байт это 8 бит
1000\8=125 байт
</span>
Ответ:
program pr1;
const N=1000;
var a:array[1..n]of integer;
max,min,i:integer;
begin
for i:=1 to n do begin
read (a[i]);
if a[i]=0 then break;
end;
max:=-1;
min:=30001;
for i:=1 to n do begin
if a[i]>max then max:=a[i];
if (a[i]<min) and (a[i]>0) then min:=a[i];
end;
write(max-min);
end.
78=>16
214=>326
89=>131
111=>157
1)
var
a,b,c:real;
begin
readln(a,b);
c:=180-a-b;
if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v:real;
begin
readln(v);
if v<7.8 then writeln ('ракета упадет на Землю');
if v=7.8 then writeln ('ракета станет спутником Земли');
if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы');
end.