Поиск минимума и максимума на Pascal

      Комментарии к записи Поиск минимума и максимума на Pascal отключены

Главная Форумы Программирование Программирование на Pascal Поиск минимума и максимума на Pascal

Помечено: 

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

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

    С клавиатуры задан массив из N элементов. Вычислить минимальный и максимальный элементы.

    Решение:

    program arrays_5;
    uses crt;
    var
      n, i, min, max: integer;
      mas: array[1..100] of integer;
    begin
      clrscr;
      write('Количество элементов > '); read(n);
      for i:=1 to n do
      begin
        write(i, ' элемент > '); read(mas[i]);
      end;
      min:=mas[1]; max:=mas[1];
      for i:=2 to n do
      begin
        if mas[i]<min then min:=mas[i];
        if mas[i]>max then max:=mas[i];
      end;
      writeln('Минимальный элемент: ', min);
      write('Максимальный элемент: ', max);
      readkey;
    end.

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