Двумерный массив (Pascal)

[Vika300]

Дан двумерный массив A(N,N) . Заменить положительные элементы , расположенные выше диагонали , на 10 , а отрицательные - ниже диагонали на 5. Определить количество замен. Помогите составить программу и блок схему! Заранее спасибо!

[Serge_Bliznykov]

const N = 5;
var 
  A:array[1..N,1..N] of integer;
  i,j,CntZam : integer;
begin
  Randomize;
  for i:=1 to N do
    for j:=1 to N do
      A[i,j] := random(51)-25; {случ.числа от -25 до 25}

  WriteLn('Исходная матрица: ');
  for i:=1 to N do begin
    for j:=1 to N do
       Write(A[i,j]:3,' ');
    WriteLn;
  end;

  CntZam := 0;
  for i:=1 to N do
    for j:=1 to N do begin
      if (i>j) and (A[i,j]<0) then {ниже главной диагонали и отрицательные }
      begin
               A[i,j] := 5;   
               inc(CntZam);
      end; 
      if (i<j) and (A[i,j]>0) then {ниже главной диагонали и положительные }
      begin
               A[i,j] := 10;   
               inc(CntZam);
      end; 
    end;

  WriteLn('Количество замен: ', CntZam);

  WriteLn('Полученная матрица: ');
  for i:=1 to N do begin
    for j:=1 to N do
       Write(A[i,j]:3,' ');
    WriteLn;
  end;

  ReadLn;
end.

[Poma][a]

Красота.. Только маленький косячок в комментариях..

[Serge_Bliznykov]

вот же какой внимательный!!
это не я виноват, это копипаст рулит!

точно так.
подскажу даже строчку:

    if (i<j) and (A[i,j]>0) then {ниже главной диагонали и положительные }

[Vika300]

Спасибо мальчики