Нунжа помощь с заданием

Всем привет,нужна ваша помощь,завтра сдавать рейтинг и на рейтинге будет это задание,как его делать я понятия не имею,знаю только что нужна программа в Borland Pascal(ABC Pascal),и нужен алгоритм в тетради,выручайте!

 

Нужна помощь с заданием

Вот за 5 мин сделал.

Code:

Program pr1;
var n,S,P,j,i,k:integer;
A:array[1..100]of integer;
B:array[1..100,1..100]of integer;
begin
Writeln('A razmer:');Read(n);
Writeln('arraay:');
for i:=1 to n do 
Read(A[i]);
k:=1;
for i:=1 to 3 do 
for j:=1 to 4 do begin
B[i,j]:=A[k];
k:=k+1;
end;
S:=0;
P:=1;
for i:=1 to 3 do
for j:=1 to 4 do begin
if B[i,j]<0 then S:=S+B[i,j];
if B[i,j]>0 then P:=P*B[i,j];
end;;
Writeln('Summa:',S);
Writeln('Proizvedenie:',p);
End.

Тебе нужна блок-схема или пошаговое описание действий?

 

Нужна помощь с заданием

del