Работа с матрицами

[ByAlex]

Вот измененная версия для паскаля -

var
  max,maxj,i,j,t:integer;
  arr:array[1..5,1..5] of integer;
  masStrok:array[1..5] of integer;
  masStolb:array[1..5] of integer;
  Check:boolean;
begin
  for i:=1 to 5 do
  begin
    masStrok[i]:=0;
    masStolb[i]:=0;
  end;
  writeln('Vvedite matrix[5x5]:');
  for i := 1 to 5 do
    for j := 1 to 5 do
      read(arr[i,j]);
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
    begin
      masStrok[i]:=masStrok[i]+arr[i,j];
      masStolb[i]:=masStolb[i]+arr[j,i];
    end;
  end;
  for i := 1 to 5 do
  begin
    masStrok[i]:=masStrok[i]-masStolb[i];
    if masStrok[i]=0 then check:=true;
  end;
  writeln;
  if check then
    write('Martix is magic kvadrat')
  else write('Martix is not magic kvadrat');
  readln;
  readln;
end.