Ппррл - пр - лпр ппрл - р р - ппрл ррл - пп - ппрр п-путешественник р-разбойник л-лодка
Yevgeniya1807
26.03.2023
program al; var a: array[1..32000] of integer; buf: integer; i,n,min,max: integer; begin writeln('n='); readln(n); writeln('vvedite massiv='); for i : = 1 to n do readln(a[i]); min: =1; max: =1; for i: =2 to n do begin if a[min]> a[i] then min: =i; if a[max]< a[i] then max: =i; end; buf: =a[min]; a[min]: =a[max]; a[max]: =buf; writeln('massiv posle obmena max< -> min'); for i: =1 to n do write(a[i]: 4); writeln; end.
будет 57,6 !