Найти сумму положительных и отрицательных элементов массива

Var    a: array[1..1000] of integer;   s,n: integer;     p: real;     k,i: byte; begin k: =0; s: =0; randomize; writeln('кол-во элементов массива'); readln(n); for i: =1 to n do begin a[i]: =random(100)-46; write('a(',i,')=',a[i],' '); end; for i: =1 to n do begin if a[i]< 0 then s: =s+a[i]; if a[i]> 0 then k: =k+a[i]; end; writeln(' '); writeln ('сумма положительных: ',k); writeln ('сумма отрицательных: ',s); end.

Переводим Гбайты в Мбайты(500*1024= 512000 MB) И ДЕЛИМ НА 700 мБАЙТ и получаем -((Нужен 731.4 Диск)))

Скорее всего 3 т.к. регистры это сверхбыстрая память внутри процессора

1. да; 2. нет; 3. картинка; 4. да; 5. да обязательно; 6. да