1. uses crt; const n=5; var i,j,ans: integer; a: array[1..n,1..n] of integer; begin randomize; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(5,10); write(a[i,j],' '); end; writeln(); end; for i: =1 to n do begin ans: =0; for j: =1 to n do begin if a[i,j]> 7 then ans: =ans+1; end; writeln('in ',i,': ',ans); end; end.2.uses crt; const n=3; var i,j,t: integer; a: array[1..n,1..n] of integer; beginwriteln('input array: '); for i: =1 to n dofor j: =1 to n doread(a[i,j]); for j: =1 to n dobegint: =a[1,j]; a[1,j]: =a[3,j]; a[3,j]: =t; end; for i: =1 to n dobeginfor j: =1 to n dowrite(a[i,j],' '); writeln(); end; end.
minchevaelena23
12.04.2023
Как я поняла, нужно было использовать кусок кода, данный выше? var a: array[1..10] of integer; imax, i: byte; begin writeln('массив: '); randomize; for i: =1 to 10 do begin a[i]: =random(100); write(a[i]: 4); end; imax : = 1; for i: =2 to 10 do if a[i] > a[imax] then imax : = i; writeln; writeln('максимальный элемент = ', a[imax]: 3, ' в позиции ', imax: 2); end.