Все элементы матрицы, лежащие на главной диагонали разделить на количество нулевых элементов в четных столбцах

program dira;
uses crt;
var i,j,n:integer;
    x:array [1..10,1..10] of real;
    s1,s2:real;
    sum:extended;
begin
write ('n=');
readln(n);
 for i:=1 to n do
   for j:=1 to n do begin
      write ('x(',i,',',j,')=');
        readln (x[i,j]);
   end;
    writeln ('massiv X');
    for i:=1 to n do begin
    for j:=1 to n do begin
      write (x[i,j]:5:1);
    end;
   writeln;
end;
s1:=0;
i:=2;
 while j<=N do begin
    for i:=1 to n do
    if x[i,j]>0 then begin
    sum:=sum+x[i,j];
    end;
{j:=;
i:=;
  while (j<=n) do begin
   while (i<=n) do begin
    if (((i mod 2)=1) and (x[i,j]>0)) then
     s1:=s1+x[i,j];
    inc(i);
   end;
   inc(j);
  end;}
 { for j:=1 to n do begin
   for i:=1 to n do begin
    if (((i mod 2)=1) and (x[i,j]>0)) then
     s1:=s1+x[i,j];
   end;
  end;  }
    writeln('massiv X');
    for i:=1 to n do begin
    for j:=1 to n do begin
      writeln (x[i,j]:5:1);
    end;
  end;
end;
end.
 
{s2:=0;
for j:=1 to n do begin
  for i:=1 to n do begin
    if (((i mod 2)=0) and (x[i,j]>0)) then s2:=s2+x[i,j];
end;end;}
 
 
 
 
 
 
 
 
{writeln;
writeln('s1=',s1:5:1,'  s2=',s2:5:1);
   for i:=1 to n do
    x[i,i]:=(s1+s2)/2;
 writeln ('¬*ббЁў • (Ї®б«Ґ §*¬Ґ*л)');
 for i:=1 to n do begin
  for j:=1 to n do begin
    write (x[i,j]:5:1);
  end;}

uses crt;
var
   a: array[1..100,1..100] of integer;
   i,j,n,m,k: byte;
begin
   clrscr;
   randomize;
   write('N: ');
   readln(n);
   i:=1;
   while i<=n do
      begin
         j:=1;
         while j<=n do
            begin
               a[i,j]:=random(101)-50;
               write(a[i,j]:4);
               inc(j);
            end;
         writeln;
         inc(i);
      end;
   writeln;
   j:=2;
   while j<=n do
      begin
         i:=1;
         while i<=n do
            begin
               if a[i,j]=0 then inc(k);
               inc(i);
            end;
         j:=j+2;
      end;
   i:=1;
   while i<=n  do
      begin
         a[i,i]:=a[i,i] div k;
         inc(i);
      end;
   i:=1;
   while i<=n do
      begin
         j:=1;
         while j<=n do 
            begin
               write(a[i,j]:4);
               inc(j);
            end;
         writeln;
         inc(i);
      end;
   readkey
end.

if k<>0 then 
begin
 делим
 выводим массив 
end
else writeln('Нету в чётных столбцах нулевых элементов');

uses crt;
var
   a: array[1..50,1..50] of integer;
   i,j,n,m,k: byte;
begin
   clrscr;
   randomize;
   write('N: ');
   readln(n);
   i:=1;
   while i<=n do
      begin
         j:=1;
         while j<=n do
            begin
               a[i,j]:=random(101)-50;
               write(a[i,j]:4);
               inc(j);
            end;
         writeln;
         inc(i);
      end;
   writeln;
   j:=2;
   while j<=n do
      begin
         i:=1;
         while i<=n do
            begin
               if a[i,j]=0 then inc(k);
               inc(i);
            end;
         j:=j+2;
      end;
   if k<>0 then
   begin
   i:=1;
   while i<=n  do
      begin
         a[i,i]:=a[i,i] div k;
         inc(i);
      end;
   i:=1;
   while i<=n do
      begin
         j:=1;
         while j<=n do
            begin
               write(a[i,j]:4);
               inc(j);
            end;
         writeln;
         inc(i);
      end;
   end
   else writeln('Íåò íóëåâûõ ýëåìåíòîâ â ÷¸òíûõ ñòîëáöàõ.');
   readkey
end.

write('a[',i,',',j,'] = ');
readln(a[i,j])

program pavel;
uses crt;
var
   a: array[1..100,1..100] of integer;
   i,j,n,m,k: byte;
begin
     write('N=');
     readln(N);
      for i:=1 to N do begin
        for j:=1 to N do begin
          write ('a(',i,',',j,')=');
            readln(a[i,j]);
        end;
        write(a[i,j]:9);
         writeln;
      end;
   writeln;
   j:=2;
   while j<=n do
      begin
         i:=1;
         while i<=n do
            begin
               if a[i,j]=0 then inc(k);
               inc(i);
            end;
         j:=j+2;
      end;
   if k<>0 then
   begin
   i:=1;
   while i<=n  do
      begin
         a[i,i]:=a[i,i] div k;
         inc(i);
      end;
   i:=1;
   while i<=n do
      begin
         j:=1;
         while j<=n do
            begin
               write(a[i,j]:4);
               inc(j);
            end;
         writeln;
         inc(i);
      end;
   end
   else writeln('ЌҐв *г«Ґўле н«Ґ¬Ґ*в®ў ў зсв*ле бв®«Ўж*е.');
   readkey
end.