1. var n,i,max,min: longint; a: array[1..10000] of longint; begin readln(n); for i:=1 to n do readln(a[i]); max:=a[1];min:=a[1]; for i:=2 to n do begin if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; end; writeln(max,',',min) readln end.
var n,i,max,min: longint; a: array[1..10000] of longint; begi readln(n); for i:=1 to n do readln(a[i]); max:=a[1];min:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; writeln(max,',',min)