Динамический массив

[k1d]

Динамический массив

заменить нулями все элементы, расположенные на главной диагонали двумерного динамического массива A[N,N], состоящего из элементов целого типа.

 

[k1d]

желательно в pascal abc

 

[Vladimir_S]

желательно в pascal abc

Извините, но этой дряни не держу. Так что могу предложить только для Turbo (Free). Но вроде бы должно пойти и на этом... ну, в общем, на АВС.

{$r-}
Type
 T=ARRAY[1..1] of Integer;

Var
 A:^T;
 i,j,N:Integer;

Begin
 Write('N= ');
 Readln(N);
 GetMem(A, SizeOf(Integer)*N*N);

 Writeln('Initial matrix:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A^[N*(i-1)+j]:=Random(20)-10;
     Write(A^[N*(i-1)+j]:4);
    end;
   Writeln;
  end;
 Writeln;

 For i:=1 to N do
  A^[N*(i-1)+i]:=0;

 WriteLn('New matrix:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    Write(A^[N*(i-1)+j]:4);
   Writeln;
  end;

 FreeMem(A, SizeOf(Integer)*N*N);

 Readln
End.