Const m=5; n=6; var a:array[1..m,1..n] of integer; i,j,max,imax,jmax,min,imin,jmin:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; max:=a[1,1]; imax:=1; jmax:=1; min:=a[1,1]; imin:=1; jmin:=1; for i:=1 to m do for j:=1 to n do begin if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end; if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end; end; writeln('max = a[',imax,',',jmax,'] = ',max); writeln('min = a[',imin,',',jmin,'] = ',min); a[imax,jmax]:=min; a[imin,jmin]:=max; writeln('Полученный массив:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln; end; end.
// PascalABC.NET 3.0, сборка 1088 var n,i,max,min,s,t,k:integer; begin Write('Введите количество членов последовательности: '); Read(n); Writeln('Вводите числа через пробел'); max:=-32768; min:=32767; s:=0; k:=0; for i:=1 to n do begin Read(t); if t<min then min:=t else if t>max then max:=t; if t<0 then begin s:=s+t; Inc(k) end end; Writeln('Min=',min,', max=',max,', ср.арифм.=',s/k:0:5) end.
<em><u>Тестовое решение:</u></em> Введите количество членов последовательности: 7 Вводите числа через пробел 25 -6 39 -118 271 24 -15 Min=-118, max=271, ср.арифм.=-46.33333