SaveText.Ru

Без имени
  1. var a:array[1..100] of integer;
  2. I,j,n,max,imax,imin,b:integer;
  3. begin
  4. write ('N:');
  5. readln (n);
  6. imax:=1;
  7. imin:=1;
  8. randomize;
  9. for i:=1 to n do
  10. begin
  11. a[i]:=random(10)-3;
  12. write(a[i]:3);
  13. if a[i]>a[imax] then
  14. begin
  15. imax:=i;
  16. end;
  17. if a[i]< a[imin] then
  18. begin
  19. imin:=i;
  20. end;
  21. end;
  22. writeln;
  23. writeln('MAX[',imax,']:=',a[imax]);
  24. writeln('MIN[',imin,']:=',a[imin]);
  25. b:= a[imax];
  26. a[imax]:= a[imin];
  27. a[imin]:=b;
  28. for i:=1 to n do
  29. begin
  30. write(a[i]:3);
  31. end;
  32. end.
  33.  

Share with your friends:

Print