uses crt;
var i,nommin,nommax,
NomMinI,NomMinJ,NomMinK,NomMinN, NomMaxI,NomMaxJ,NomMaxK,NomMaxN:integer;
maxb,maxh,maxu,maxs,
minb,minh,minu,mins, el,min,max:real;
procedure minim;
begin
if el < min then
begin
min:=el;
nommin:=i;
end;
if el > max then
begin
max:=el;
nommax:=i;
end;
end;
begin
clrscr;
min:=9999;
max:=-9999;
for i:=1 to 5 do
begin
el:=sin(i+0.5)+cos(i-2.9);
minim;
end;
minb:=min;
NomMinI:=nommin;
maxh:=max;
NomMaxI:=nommax;
min:=9999;
max:=-9999;
for i:=1 to 8 do
begin
el:=sin(i-1.4)+cos(i+3.7);
minim;
end;
minh:=min;
NomMinJ:=nommin;
maxh:=max;
NomMaxJ:=nommax;
min:=9999;
max:=-9999;
for i:=1 to 7 do
begin
el:=sin(i+2.2)+cos(i+7/8);
minim;
end;
minu:=min;
NomMinK:=nommin;
maxu:=max;
NomMaxK:=nommax;
min:=9999;
max:=-9999;
for i:=1 to 10 do
begin
el:=sin(i-4.3)+cos(i+9.2);
minim;
end;
mins:=min;
NomMinN:=nommin;
maxs:=max;
NomMaxN:=nommax;
writeln('min element Bi:
',minb:0:2,' ego nomer: ',NomMinI);
writeln('max element Bi:
',maxb:0:2,' ego nomer: ',NomMaxI);
writeln;
writeln('min element Hj:
',minh:0:2,' ego nomer: ',NomMinJ);
writeln('max element Hj:
',maxh:0:2,' ego nomer: ',NomMaxJ);
writeln;
writeln('min element Uk:
',minu:0:2,' ego nomer: ',NomMinK);
writeln('max element Uk:
',maxu:0:2,' ego nomer: ',NomMaxK);
writeln;
writeln('min element Sn:
',mins:0:2,' ego nomer: ',NomMinN);
writeln('max element Sn:
',maxs:0:2,' ego nomer: ',NomMaxN);
