ДВУМЕРНЫЕ МАССИВЫ

[rhbcnbyf]

помогите пожалуйста написать программу и блок-схему!!!
Задача: В матрице с размерности (4х4) вычислить сумму произведений элементов каждой строки.

[_-Re@l-_]

Ну как бы:

Uses CRT;
var A:array[1..4,1..4] of integer;
     S:array[1..4] of integer;
     summa:longint;
     i,j:integer;
begin
      clrscr;
      for i:=1 to 4 do
      begin
             for j:=1 to 4 do
             begin
             Writeln('A[',i,',',j,'] = ');
             Readln(A[i,j]);
             end;
      end;
     for i:=1 to 4 do
     s[i]:=0;
     for i:=1 to 3 do
     begin
            for j:=1 to 3 do
            s[i]:=s[i]+A[i,j]*A[i,j+1];
     end;
     summa:=0;
     for i:=1 to 4 do
     summa:=summa+s[i];
     Writeln('Сумма равна = ',summa);
     readln;
end.

Если не ошибаюсь, то так

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=100564