Поиск максимальных значений массива на Pascal

      Комментарии к записи Поиск максимальных значений массива на Pascal отключены

Главная Форумы Программирование Программирование на Pascal Поиск максимальных значений массива на Pascal

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 2 мес. назад.

  • Автор
    Сообщения
  • #3775

    Найти максимальный элемент одномерного массива случайных целых чисел от -10 до 10. Вывести на экран все значения, равные максимальному и их индексы.

    Решение:

    program arrays_6;
    uses crt;
    const n=20;
    var i, key, max: integer;
    mas: array[1..n] of integer;
    begin
      clrscr; randomize;
      writeln('Список:');
      for i:=1 to n do
      begin
        mas[i]:=random(20)-10;
        write(' ',mas[i]);
      end;
      key:=1;
      for i:=2 to n do
      begin
        if mas[i]>mas[key] then
          key:=i;
        max:=mas[key];
      end;
      writeln;
      writeln('Элемент Индекс');
      for i:=1 to n do
      begin
        if mas[i]=max then
          writeln(mas[i]:4, i:12);
      end;
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.