program CopTyBaHH9_MacuBiB;
uses crt;
var
a:array [1..10] of integer;
masiv,masiv1,masiv2,x,y,i,j,k,n,z,min1,max1: integer;
min2,max2: string; procedure sortzros (i,n,j,max:integer);
begin
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if a[i]>a[j] then
begin
max:=a[i] ;
a[i]:=a[j] ;
a[j]:=max;
end
else;
end;
end;
writeln ('MACUB:',n);
for i:=1 to n do
writeln (a[i]);
readln;
end;
procedure sortZM (i,n,j,min:integer);
begin
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if a[i]<a[j] then
begin
min:=a[i] ;
a[i]:=a[j] ;
a[j]:=min;
end
else;
end;
end;
writeln ('MACUB:', n);
for i:=1 to n do
writeln (a[i]);
readln;
end;
begin
begin
writeln ('O6epiTb Tun MacuBy');
writeln ( '"1"-4ucJIoBuu MacuB , "2"-6yKBuHHuu MacuB');
readln (masiv1);
case masiv1 of
1:begin
Writeln ('COPTyBATU nO 3POcTaHHI0 HATUCHITb 1');
Writeln ('COPTyBATU nO 3POcTaHHI0 HATUCHITb 2');
readln (masiv2) ;
case masiv2 of
1:begin
writeln ('BBEgiTb po3MipHicTb') ;
readln (k) ;
for x:= 1 to k do
begin
write('BBig ', x ,' element A[',x,']=');
readln(a[x]);
if a[x]>max1 then max1:=a[x];
if a[x]<min1 then min1:=a[x];
end;
writeln('MiHiMaJlbHuu eJleMeHT = ',min1);
writeln('MaKcuMaJlHuu EJleMeHT = ',max1);
end;
2: begin
for y:= 1 to 10 do
begin
write('BBig ', y ,' element A[',y,']=');
readln(mas2[y]);
if mas2[y]>max2 then max2:=mas2[y];
if mas2[y]<min2 then min2:=mas2[y];
end;
writeln('MiHiMaJlbHuu eJleMeHT = ',min2);
writeln('MaKcuMaJlHuu EJleMeHT =',max2);
writeln('nporpaMy 3po6uB BAH9') ;
end;
end;
readln;
end.
