Сформировать два массива содержащих n элементов.отсортиропять первые по возрастанию,а второй по убывания.вывести на экран.з атем первый массив просумировать со вторым,а из второго вычесть первый

Uses crt; const n = 100; var a: array [1..n] of integer; b: array [1..n] of integer; i, j, m: byte; p1, p2: integer; begin write('количество элементов: '); readln(m); clrscr; writeln('ввод массива a'); writeln; for i: =1 to m do    begin    write('a[',i,']: '); readln(a[i]);     end; clrscr; writeln('ввод массива  b'); writeln; for i: =1 to m do    begin    write('b[', i, ']: '); readln(b[i]);     end; clrscr; writeln; writeln('исходный массив а: '); for i: =1 to m do write(a[i]: 4); writeln; writeln; writeln('исходный массив  b: '); for i: =1 to m do write(b[i]: 4); for i: =1 to m-1 do for j: =m downto i do begin if a[i] > a[j] then begin p1: =a[i]; a[i]: =a[j]; a[j]: =p1; end; if b[j] > b[i] then begin p2: =b[i]; b[i]: =b[j]; b[j]: =p2; end; end; writeln; writeln; writeln('массив а по возрастанию: '); for i: =1 to m do write(a[i]: 4); writeln; writeln; writeln('массив b по убыванию: '); for i: =1 to m do write(b[i]: 4); writeln; writeln; writeln('массив a+b: '); for i: =1 to m do begin  a[i]: =a[i]+b[i];   write(a[i]: 4);   a[i]: =a[i]-b[i]; end; writeln; writeln; writeln('массив b-a: '); for i: =1 to m do begin  b[i]: =b[i]-a[i];   write(b[i]: 4); end; readln; end.

Відповідь:

1024

Пояснення:

Сначала найдём объём несжатого изображения

120*1,35=162 Кб

Объём растрового изображения находится как произведение количества пикселей в изображении на объём памяти x, необходимый для хранения цвета одного пикселя, то есть

256*480*х=162 000 байт=162000*8 бит=1296000 бит

х≈10,54бит

тогда цветов можно использовать не больше чем 2¹⁰=1024 цвета