Rkkshv

16.05.2022 10:08

Информатика

Есть ответ 👍

Перевести на c++! const mm = 5; type mat = array [1..5, 1..5] of real; {esli max vishe gl diagonali} procedure pp1(var a: mat; var p: boolean; var imax, jmax: integer); var i, j: integer; begin imax : = 1; jmax : = 1; for i : = 1 to mm do for j : =1 to mm do begin if a[i, j] > a[imax, jmax] then begin imax : = i; jmax : = j end end; p : = jmax > imax end; {transponirovat matrix} procedure pp2(var a: mat); var i, j: integer; c: real; begin for i : = 2 to mm do for j : = 1 to i - 1 do begin c : = a[i, j]; a[i, j] : = a[j, i]; a[j, i] : = c end end; {symma elementov str i stlb s index max} procedure pp3(var a: mat; imax, jmax: integer; var s: real); var i: integer; begin s : = 0; for i : = 1 to mm do s : = s + a[i, jmax] + a[imax, i] end; {glav modul} var s: real; i, j, imax, jmax: integer; p: boolean; const a: mat = ((9, 1, 1, 2, 3), (4, 6, 7, 8, 4), (5, 1, 1, 1, 1), (1, 1, 1, 1, 1), (1, 1, 2, 1, 1)); begin writeln('isxodnaya matriza'); for i : = 1 to mm do begin for j : = 1 to mm do write(' ', a[i, j]: 8: 1); writeln end; pp1(a, p, imax, jmax); writeln('max element: a[', imax, ', ', jmax, '] = ', a[imax, jmax]: 0: 1); if p then begin pp2(a); writeln('transponirovannaya matrix'); for i : = 1 to mm do begin for j : = 1 to mm do write(' ', a[i, j]: 8: 1); writeln end end else begin pp3(a, imax, jmax, s); writeln('symma elementov s index max elementa = ', s: 0: 1) end; readln end.