var a: array[1..n, 1..n] of integer; i, j, aii: integer;
begin Randomize; Writeln('Исходный массив'); for i := 1 to n do begin for j := 1 to n do begin a[i, j] := Random(101) - 50; Write(a[i, j]:4) end; Writeln end; Writeln('Результирующий массив'); for i := 1 to n do begin aii:=a[i,i]; for j:=1 to n do begin if a[i,j]<aii then a[i,j]:=1 else a[i,j]:=0; Write(a[i,j]:4) end; Writeln end end.
