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

106

134

Посмотреть ответы 2

Ответы на вопрос:

яблоко50

Информатика

4,5(14 оценок)

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.