двумерный массив

[JOHN1992]

1. Ввести двумерный массив А NxN(NxN маленькие), вывести его. Если значение суммы элементов его главной диагонали превышает число элементов побочной, то квадратом полученной разности заменить отрицательные элементы под побочной диагональю
помогите составтиь программу на паскале заранее спасибо !

[Alex Cones]

http://www.programmersforum.ru/showthread.php?t=70310

[JOHN1992]

ну и на этом спасибо как говорится...

[VilAm]

 {Ввести двумерный массив А NxN(NxN маленькие), вывести его.
  Если значение суммы элементов его главной диагонали превышает
  число элементов побочной, то квадратом
  полученной разности заменить отрицательные элементы под побочной диагональю}
var i,j:Integer;
     n:Integer;
     sg,sp:Integer;
     r:Integer;
     k:integer;
     a:array[1..100,1..100] of Integer;
begin
  Randomize;
  Writeln('input n');
  Readln(n);
  sg:=0;
  sp:=0;
  k:=0;
  for i:=1 to n do
    for j:=1 to n do
    a[i,j]:=Random(30)-20; (*для ручного ввода заменить на readln(a[i,j]);*)
    Writeln('****MATRIX****');
    for i:=1 to n do begin
    for j:=1 to n do
    write(a[i,j]:6);
    Writeln;
    end;
    Writeln('**********************');
    for i:=1 to n do begin
     sg:=sg+a[i,i];
     sp:=sp+a[i,n-i+1];
    end;
     r:=sg-sp;
    Writeln('sum of main diagonal=',sg:8);
    Writeln('sum of sideline diagonal=',sp:8);
    Writeln('difference=',r:6);
    Writeln('**********************');
    if r>0 then
    for i:=1 to n do
    for j:=1 to n do
    if (i+j-1>n) and (a[i,j]<0) then
    begin
      a[i,j]:=Sqr(r);
      k:=k+1;
    end;
    if k >0 then begin
      Writeln('made substitutions=',k:6);
      Writeln('******NeW Matrix******');end
    else Writeln('***MATRIX not changed***');
      for i:=1 to n do begin
    for j:=1 to n do
    write(a[i,j]:6);
    Writeln;
    end;
    Writeln('*Press any key to exit*');
    Readln;
end.

[JOHN1992]

а вам огромное спасибо)