// PascalABC.NET 3.0, сборка 1128 const nn=20; var b:array[1..nn] of integer; i,n,bmin,bmax:integer; begin Randomize; Write('n='); Read(n); Writeln('Элементы массива'); bmax:=-1000; bmin:=1000; for i := 1 to n do begin b[i]:=Random(51)-25; Write(b[i],' '); if b[i]<bmin then bmin:=b[i] else if b[i]>bmax then bmax:=b[i] end; Writeln; Writeln('Ср. арифметическое минимального и максимального: ', (bmin+bmax)/2) end.
Canvas.Pen
Объяснение: