Дана матрица А из N строк и N столбцов

const n=3;
var a:array[1..n,1..n] of real;
    c:array[1..n] of real;
    i,j,k:integer;
    CA:real;
begin
     writeln('Введите массив A:');
     CA:=0;
     for i:=1 to n do
         for j:=1 to n do
         begin
              writeln('Введите a[',i,j,']');
              read(a[i,j]);
              if i=j then CA:=CA+a[i,j];
         end;
     CA:=CA/n;
     writeln('Введите последовательность:');
     k:=0;
     for i:=1 to n do
     begin
          writeln('Введите C',i);
          read(c[i]);
          if CA<c[i] then inc(k);
     end;
     writeln('Среднее арифметическое =',CA);
     if k=n then for i:=1 to n do
                     for j:=1 to n do
                          if a[i,j]>0 then a[i,j]:=a[i,j]+CA else a[i,j]:=a[i,j]-CA;
     writeln('Преобразованная матрица:');
     for i:=1 to n do
     begin
         for j:=1 to n do
             write(a[i,j]:6:2);
         writeln;
     end;
end.

program progr;
uses crt;
const n = 8;
 
var a : array [1..n,1..n] of integer;
    c : array [1..n] of integer;
    i , j, ind : byte;
    s, v: integer;
    
begin
Randomize;
 
 for i:=1 to n do begin
     c[i] := random(201)-100;
     for j:=1 to n do
         a[i,j] := random(201)-100;
     end;
 writeln('Èñõîäíàÿ ìàòðèöà');
 for i := 1 to n do  begin
    writeln;
        for j := 1 to n do
            write(a[i,j],' ');
 end;
 writeln;
     
s :=0;
for i := 1 to n do begin
    j := i;
    s := s + a[i,j];
    end;
    
 v := s mod n;
 ind := 0;
 for i := 1 to n do begin
     if ( v < c[i] ) then
       ind := ind + 1;
       end;
       
 if ( ind = n ) then  begin
    for i := 1 to n do
        for j := 1 to n do begin
            if (a[i,j] < 0) then a[i,j] := a[i,j] - v
            else if (a[i,j] > 0) then a[i,j] := a[i,j] + v
            end;
            end;
 writeln;
  writeln('Ìàòðèöà ïîñëå ïðîâåðêè óñëîâèÿ');
   for i := 1 to n do  begin
       for j := 1 to n do write(a[i,j],' ');
       writeln;
    end;
    
    writeln;
    
    if ( ind <> n ) then writeln('Ìàòðèöà íå èçìåíÿëàñü');
 END.