Курсовая работа: Использование информационных и компьютерных знаний в учебном процессе и трудовой деятельности

writeln;

s1:=0;

s2:=0:

for i:=1 to n do

begin

s1:=s1+c [i, i];

s2:=s2+c [i, 1+n-i];

end;

if s1=s2 then

begin

for i:=1 to n do

begin

for j:=1 to n do

if c [i, j]<3

then c [i, j]:=3

else c [i, j]:=0;

end;

end;

{vivod tabl}

writeln (‘Tablica c ycJloBuEM’);

writeln;

for i:=1 to n do

begin

for j:=1 to n do

begin

writeln (c [i, j]:4);

end;

writeln;

end;