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

Question

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

Answer 1

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.
  

Comments

огромное спасибо,дай бог тебе здоровья