program didziausias_maziausias_masyvas; var i, max, min,v,n: integer; x : array [1..5] of integer; begin n:=5; for i:=1 to n do begin read(x); end; min :=x[1]; max :=x[1]; for i := 1 to 5 do begin if min > x then min := x; if max < x then max := x; end; readln; writeln('Didziausias elementas masyve: ', max); writeln('Maziausias elementas masyve: ', min); readln; end.