Question

Ввести с клавиатуры массив из 5 элементов, найти в нем максимальный и минимальный элементы и их номера. Пример: Исходный массив: 4 -5 10 -10 5 максимальный A[3]=10 минимальный A[4]=-10.ПАСКАЛЬ​

Answer 1

===== PascalABC.NET =====

begin

 var a := ReadArrInteger(5);

 var (imx, imn) := (a.IndexMax, a.IndexMin);

 Writeln('максимальный A[', imx + 1, ']=', a[imx]);

 Writeln('минимальный A[', imn + 1, ']=', a[imn])

end.

Answer 2

Для решения данной задачи в Паскале, можно использовать следующий алгоритм:

1. Объявить массив `a` размером 5. 2. В цикле считать с клавиатуры значения элементов массива и сохранить их в переменные `a[0]`, `a[1]`, `a[2]`, `a[3]`, `a[4]`. 3. Объявить переменные `max` и `min`, и установить их значениями первого элемента массива (`max = a[0]`, `min = a[0]`). 4. Объявить переменные `maxIndex` и `minIndex`, и установить их значениями 0. 5. В цикле проходить по всем элементам массива, начиная со второго (индекс 1). 6. Внутри цикла проверять текущий элемент массива. Если он больше значения `max`, то обновить `max` и присвоить `maxIndex` текущий индекс. Если он меньше значения `min`, то обновить `min` и присвоить `minIndex` текущий индекс. 7. Вывести на экран найденный максимальный элемент и его номер, используя значения `max` и `maxIndex`. 8. Вывести на экран найденный минимальный элемент и его номер, используя значения `min` и `minIndex`.

Ниже приведен код, реализующий данный алгоритм на языке Паскаль:

program MaxMinArray;

var
  a: array[0..4] of Integer;
  max, min: Integer;
  maxIndex, minIndex, i: Integer;
  
begin
  for i := 0 to 4 do
  begin
    Write('Введите элемент массива a[', i, ']: ');
    Readln(a[i]);
  end;
  
  max := a[0];
  min := a[0];
  maxIndex := 0;
  minIndex := 0;
  
  for i := 1 to 4 do
  begin
    if a[i] > max then
    begin
      max := a[i];
      maxIndex := i;
    end;
    
    if a[i] < min then
    begin
      min := a[i];
      minIndex := i;
    end;
  end;
  
  Writeln('Максимальный элемент массива: a[', maxIndex, '] = ', max);
  Writeln('Минимальный элемент массива: a[', minIndex, '] = ', min);
  
  Readln;
end.

После запуска программы, она попросит ввести с клавиатуры 5 элементов массива. Затем выведет на экран максимальный и минимальный элементы массива и их номера.