Const n=2; var a: array[1..n,1..n]of integer; i,j,s,max,imax: integer; begin for i: =1 to n do begin s: =0; for j: =1 to n do begin readln(a[i,j]); s: =s+a[i,j]; end; if s> max then begin max: =s; imax: =i; end; end; writeln('i: ',imax,' s= ',max); end.
gullieta
25.10.2022
Const m=10; n=6; var a: array[1..m,1..n] of integer; i,j,maxr: integer; p,maxp: longint; begin randomize; writeln('исходный массив'); maxp: =0; for i: =1 to m do begin p: =1; for j: =1 to n do begin a[i,j]: =random(99)+1; { интервал [1..99] } write(a[i,j]: 3); p: =p*a[i,j] end; if maxp< p then begin maxp: =p; maxr: =i end; writeln end; for i: =1 to m do for j: =1 to n do a[i,j]: =a[maxr,j]; writeln('сформированный массив'); for i: =1 to m do begin for j: =1 to n do write(a[i,j]: 3); writeln end end. тестовое решение: исходный массив 86 61 76 1 86 64 93 87 34 66 35 13 51 39 57 5 71 49 86 47 26 30 93 80 58 24 59 57 3 79 46 81 17 24 11 37 12 83 56 75 89 16 50 93 57 1 51 64 25 35 69 29 46 73 68 56 68 95 42 62 сформированный массив 86 47 26 30 93 80 86 47 26 30 93 80 86 47 26 30 93 80 86 47 26 30 93 80 86 47 26 30 93 80 86 47 26 30 93 80 86 47 26 30 93 80 86 47 26 30 93 80 86 47 26 30 93 80 86 47 26 30 93 80