Задана матрица a (5x5) Сформировать матрицу b (4x4) путем вычеркивания из матрицы a третьей строки и третьего столбца.

Делфи

Var

f1, f2, i, j: integer;

a, b: array [1 ... 5,1 ... 5] of integer;

begin

for i : = 1 to 5 do

begin

for j : = 1 to 5 do

read (a[i][j]) ;

readln;

end;

f1 : = 0;

f2 : = 0;

for i : = 1 to 5 do

begin

if (i = 3) then

continue

else

inc (f1) ;

f2 : = 0;

for j : = 1 to 5 do

if (j = 3) then

continue

else

begin

inc (f2) ;

b[f1][f2] : = a[i][j];

end;

end;

end.