помогите пожалуйста с решением задач с матрицами очень прошу

[ленусик13]

помогите пожалуйста решить задачу: в массивеА(К) есть положительные и отрицательные элементы. вычислите сумму положительных и отрицательных элементов

[alex_fcsm]

const n=100;
var a:array[1..n] of integer;
     sump,sumn,i:integer;

begin
for i:=1 to n do
 a[i]:=random(100)-random(100);
for i:=1 to n do
 if a[i]>0 then sump:=sump+a[i]
   else sumn:=sumn+a[i];
writeln('>0:',sump);
writeln('<0:',sumn);
readln;
end.

[ленусик13]

что такое random? sump

[ленусик13]

дан массивА(-2,4,-6,0,5,0,-1,-8,4,4,3). Вычислить величинуR=p2max, гдеР-произведение элементов массива а, max-его максимальный элемент.

[alex_fcsm]

Сообщение от ленусик13

что такое random?

random(n)
Генерирует случайное число от 0 до n-1

[alex_fcsm]

Сообщение от ленусик13

дан массивА(-2,4,-6,0,5,0,-1,-8,4,4,3). Вычислить величинуR=p2max, гдеР-произведение элементов массива а, max-его максимальный элемент.

var a:array[1..11] of integer;
     i,max:integer;
     mult:longint;

begin
for i:=1 to 11 do
 read(a[i]);
writeln;
max:=1;
mult:=a[1];
for i:=2 to 11 do
 begin
  mult:=mult*a[i];
  if a[i]>a[max] then max:=i;
 end;
mult:=mult*2*a[max];
writeln(mult);
end.

Среди элементов массива есть 0. Какое будет произведение?

[ленусик13]

спасибо)) очень помог

[ленусик13]

составьте программу, имитирующей движение рямоугольника вдоль оси оy

[alex_fcsm]

1. Использовать модeль Graph(ну и возможно crt)
2. Нарисовать прямоугольник Rectangle(x1,x2,y1,y2)(описание посмотрите в хелпе)
3. В цикле изменять координату y1 и y2
4. Стереть предыдущий(clrscr,cleardevice и т.п.)
5. Нарисовать новый
6. Сделать задержку delay(1000) (чтобы он мигом все не проскакивал)

P.S. у меня графика в Паскале не работает так что проверить не могу
P.P.S. Может что такое

uses crt,graph;
var i,grDriver,grMode,ErrCode:integer;
begin
grDriver:=Detect;
InitGraph(grDriver, grMode, '');
 ErrCode:=GraphResult;
If ErrCode = grOk Then
 Begin
rectangle(300,0,360,20);
for i:=1 to 30 do
 begin
  cleardevice;
  rectangle(300,0+i*10,360,20+i*10);
  delay(1000);
 end;
end;
 readln;
CloseGraph;
end.