• 
  • 03 January 2021
  Информатика
  • Автор: ULTRA111

  

  Домашнее задание:
  «5»: Заполнить массив из 10 элементов случайными числами в интервале [-30; 30] и найти в нем минимальный элемент и их его номер.
  Пример:
  Исходный массив:
  4 -5 3 10 -4 -6 8 -10 1 0
  Минимальный a[8]=-10
  Паскаль срочно ребята пожалуйсто

• 
  • 03 January 2021
  • Ответ оставил: ProgrammerV1

  Делал как-то уже похожее. Программа выводить мин. и макс. элемент, если не нужно то можешь удалить из кода i_max
  uses crt;
  const
    Nmax=10;
  var
    m:array[1..Nmax] of integer;
    i,i_min,i_max:byte;
    min,max:integer;
  begin
    ClrScr;
    randomize;
    writeln('Исходный массив:');
    for i:=1 to Nmax do begin
      m[i]:=random(-30,30);
      write(m[i],' ');
    end;
    max:=m[1];
    min:=m[1];
    i_min:=1;
    i_max:=1;
    for i:=1 to Nmax do begin
      if m[i]>max then begin
        max:=m[i];
        i_max:=i;
      end;
      if m[i]<min then begin
        min:=m[i];
        i_min:=i;
      end;
    end;
    writeln;
    writeln('Максимальный элемент: ',max,' Его номер: ',i_max);
    writeln('Минимальный элемент: ',min,' Его номер: ',i_min);
    readln;
  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (01.04.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы