Дан одномерный массив 10 целых чисел найти сумму отрицательных и положительных чисел отдельно . язык паскаль

Program test; const n = 10; var sump,sumo,i: integer; m: array [1..n] of integer; beginfor i: =1 to n do readln(m[i]); // мы заполняем массив числами for i: =1 to n do begin if m[i]> 0 then sump: =sump+m[i]; if m[i]< 0 then sumo: =sumo+m[i]; end; writeln('сумма положительных: ',sump); writeln('сумма отрицательных: ',sumo); end.

Во вложении массив формируется рандомно, если нужен ввод с клавиатуры, то заменить            mas[x]: =random(21)-10;           write(mas[x]: 4); на          read(mas[x]);

пщояк 17 27 16 33 17

нщёп 15 27 7 17

a*b*i=i

n=2^i

где a*b-размер изображения, n-количество цветов,i-количество памяти на один пиксел, i-вес рисунка(бит)

1)64*64*i=512*8

i=1

n=2

ответ: 2

2)256=2^i

i=8

a*b*8=2400*8

a*b=2400

ответ: 2400

3)n1=4=2^2

i1=64*128*2=2^14бит=2кбайт

n2=16=2^4

i1=32*32*4=2^12бит=0,5кбайт

ответ: на первое изображение потребуется в 4 раза больше места