Дано натуральное число n, m и вещественная матрица размера nxm. Определить сумму…

Program znanija_com; const n=3; m=3; type mas=array[1… n, 1… m] of real; var arr: mas; i,j: integer; summ, max: real; beginfor i: =1 to n do begin for j: =1 to m do begin writeln ('Введите элемент массива [', i, ',', j, ']'); readln (arr[i, j]); end; end; for i: =1 to m do begin max: =arr[1, i]; for j: =2 to n do begin if arr[i,j]>max then max: =arr[i,j]; end; summ: =summ+max; end; writeln ('Сумма равна ', summ); readln (); end.