В одномерном массиве x (10) из положительных и отрицательных чисел найти

var

x: array [1..10] of real;

zmax, zmin: real;

k, kmin, kmax: integer;

begin

zmax:=-999;

zmin:=999;

for k:= 1 to 10 do

begin

readln (x[k]);

if x[k] gt; zmax then begin

zmax:=x[k];

kmax:=k;

end;

if x[k] lt;zmin then begin

zmin:=x[k];

kmin:=k;

end;

end;

x[kmin]:=zmax;

x[kmax]:=zmin;

end.