• 
  • 11 April 2013
  Английский язык
  • Автор: Valerochek

  

  Найти максимальный элемент и его номер. В Pascal. Тема массивы ;)

• 
  • 11 April 2013
  • Ответ оставил: DjVreditel

  const
  n = 10;
  var
  i:integer;
  mas : array[1..n] of integer;
  max_num, max_index: integer;
  begin
  writeln('введите элементы массива');
  for i:=1 to n do readln(mas[i]);
  
  for i := 2 to n do
  if mas[i] > max_num then begin
  max_index := i;
  max_num := mas[i];
  end;
  writeln('Максимальное число ',max_num,' находится на позиции ',max_index);
  end.

   

   

   

   

  Объяснение - 

  константы:

  n- это сколько чисел будет в твоём массиве

  max_num - максимальное число 

  max_index - позиция числа

   

  Функции :

  for i:=1 to n do readln(mas[i]); - вводим числа в массив

   

   

  for i := 2 to n do
  if mas[i] > max_num then begin
  max_index := i;
  max_num := mas[i];
  end;

   

  ищем максимальное число и его позицию

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

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

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

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

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