<span>var
a: array [1..100] of integer;
i, n , max : integer;
begin
writeln('rozmer');
readln(n);
randomize ;
if (( n>=1) and (n<=35)) then
for i:=1 to n do begin
a[i]:=random(90)-45 ;
write(a[i]:3);
end;
writeln;
max:=a[1] ;
for i:=2 to 100 do begin
if a[i]>max then max:=a[i] ;
end;
writeln(max);
end<span>.</span></span>
512*512*256=67108864 бит
67108864 / 8=8388608 байт
8388608/1024=8192 Килобайт
8192/1024= 8 Мегабайт
procedure vivod(n: integer);
begin
repeat
writeln(n mod 10);
n := n div 10;
until n = 0;
end;
От чистоты фильтра и вентилятора но это не точно
54 в 7ричной =1*4+5*7=39 в десятичной
320 в 5ричной=25*3+10=85 в десятичной
39+х=85
х=46
46 в десятичной =2Е
ответ: 2Е