SaveText.Ru

Без имени
  1. var   i,max,min,imax,imin,x:integer; begin   readln(x);   max:=x;   min:=x;   imax:=1;   imin:=1;   i:=1;   repeat     readln(x);     if x=0 then       break;     inc(i);     if x>max then       begin         max:=x;         imax:=i       end;     if x<=min then
  2. if x<=min then       begin         min:=x;         imin:=i       end;   until x=0;   writeln('Максимум: ',max,' в позиции: ',imax);   writeln('Минимум: ',min,' в позиции: ',imin);   writeln('Произведение: ',max*min);   readln; end.

Share with your friends:

Print