Найти номер max элемента массива

7 ноября 2013 / Разное

Найти номер max элемента массива

  • Program prim3;
      uses crt;
      var i,n,r,max,min,imax,imin:integer;
          a:array[1..10000] of integer;
    begin
      clrscr;
      randomize;
      write(‘число элементов n= ‘);
      readln(n);
      for i:=1 to n do
        begin
          a[i]:=random(45)-22;
    {Получаем случайные числа и выводим их на экран.}
          write(a[i],’ ‘);
        end;
    {За начальный максимум (минимум) берем первый элемент массива.}
      min:=a[1]; max:=a[1];
      for i:=1 to n do
        begin
    {Если найдется элемент, меньший MIN, то MIN будет равен этому элементу. Одновременно запоминаем индекс промежуточного минимума.}
          if a[i]<=min then
            begin
              min:=a[i]; imin:=i;
            end;
    {Если найдется элемент, больший МАХ, то МАХ будет равен этому элементу. Одновременно запоминаем индекс промежуточного максимума.}
          if a[i]>= max then
            begin
              max:=a[i]; imax:=i;
            end;
        end;
    {Печатаем минимальный элемент и его индекс.}
      writeln(min,’ номер’ , imin);
    {Печатаем максимальный элемент и его индекс.}
      writeln(max, ‘ номер’ ,imax);
      readkey;
    end.

Добавить комментарий