Курсовая работа: Средства языка программирования Паскаль для решения математических задач

begin

write('Matrix[',i,',',j,']=');

Readln(Matrix[i,j]);

end;

{------------------------------------------------------------------------}

{Вывод матрицы}

Writeln('Вы ввели: ');

for i:=1 to K do

begin

for j:=1 to K do write(Matrix[i,j],' ');

writeln;

end;

{------------------------------------------------------------------------}

{Вычисление суммы элементов. Первый проход}

Writeln;

for j:=1 to k do

begin

if j<=(k/2) then

begin

for i:=(j-1) downto 1 do sum:=sum+Matrix[i,j]

end

else

for i:=(j+1) to k do sum:=sum+Matrix[i,j];

end;

{------------------------------------------------------------------------}

{Вычисление суммы элементов. Второй проход}

for j:=k downto 1 do

begin

if j>(k/2) then