Question

Составить программу в Паскале для обработки одномерного массива из 15 чисел. Значения элементов массива задать с клавиатуры самостоятельно. Найти наибольший элемент массива и его номер.

Answer 1

Ответ:

var  

   a: array [0..14] of integer;        

   maxNum, i: integer;

begin

for i := 0 to 14 do  

   readln(a[i]);

   

maxNum := a[0];

for i := 0 to 14 do  

   begin

   if maxNum < a[i] then

       maxNum := a[i];

   end;    

   

writeln(maxNum);  

end.

Answer 2

Ответ:

(см. объяснение)

Объяснение:

Напишем программу на языке программирования PascalABC.NET:

##

var a: array of integer := ReadArrInteger(15);

a.Max.Print;

a.IndexMax.Print;

Задание выполнено!

Answer 3

Вот программа на языке Паскаль для поиска наибольшего элемента в одномерном массиве из 15 чисел и определения его номера:

pascalCopy code
program MaxElement;
var
  arr: array [1..15] of integer;  // Объявляем массив из 15 элементов
  i, max, maxIndex: integer;  // Объявляем переменные

begin
  // Вводим элементы массива с клавиатуры
  writeln('Введите 15 целых чисел:');
  for i := 1 to 15 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

  // Инициализируем переменные max и maxIndex первым элементом массива
  max := arr[1];
  maxIndex := 1;

  // Проходим по массиву, чтобы найти наибольший элемент и его индекс
  for i := 2 to 15 do
  begin
    if arr[i] > max then
    begin
      max := arr[i];
      maxIndex := i;
    end;
  end;

  // Выводим результат
  writeln('Наибольший элемент массива: ', max);
  writeln('Индекс наибольшего элемента: ', maxIndex);

  // Ждем нажатия клавиши перед завершением программы
  readln;
end.

Сначала программа просит вас ввести 15 целых чисел с клавиатуры. Затем она находит наибольший элемент и его индекс в массиве и выводит результаты на экран.