1 символ 8 бит = 1 байт на одной стр 36*48 символов = 1728 символов то есть 1 страница 1728 байт, 48 страниц = 1728*48 = 82944
32 рисунка по 2080 байт = 66560
итого 82944 + 66560 = 149504 байт или 146 Килобайт
Program abc;Const n=3; m=3;Var a:array[1..n,1..m] of integer; b,y,i,j,sum:integer; srd:real; Begin Writeln('Введите числа массива: '); For i:=1 to n do For j:=1 to m do Begin Write('a[',i,',',j,']= '); Readln(a[i,j]); if a[i,j]>0 then begin sum:=sum+a[i,j]; inc(b); end else If a[i,j]<0 then Inc(y); End; If sum>0 then begin srd:=sum/1 b; Writeln('Среднее =',srd); end else Writeln('Нет положительных членов массива'); If y>0 then begin Writeln('Количество отрицательных элементов =',y); end else Writeln('Нет отрицательных членов массива');End.
Если тебе нужно присвоить переменной X сумму A и B, то получится:
X = A + B;
Надо вместо букв поставить цифры