Question

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

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var s:=a.Select((v,i)->(v,i)); // последовательность в памяти не хранится
  var max:=s.Take(3).Max(t->t[0]);
  var imax:=a.IndexesOf(t->t=max).First;
  var min:=s.TakeLast(3).Min(t->t[0]);
  var imin:=a.IndexesOf(t->t=min).Last;
  Writeln('Максимальный из первых трех - №',imax+1,': ',a[imax]);
  Writeln('Минимальный из последних трех - №',imin+1,': ',a[imin]);
end.

Пример:
n= 17
-34 37 26 41 19 24 19 4 -7 -31 5 -23 -40 -40 -31 -28 -12
Максимальный из первых трех - №2: 37
Минимальный из последних трех - №15: -31

Answer 2

Ваш запрос кажется связанным с программированием на языке Pascal. Предположим, у вас есть массив из шести элементов. Давайте напишем программу, которая найдет максимальный элемент и его индекс среди первых трех элементов, а также минимальный элемент и его индекс среди последних трех элементов. Вот пример кода на Pascal:

program MaxMinElementExample;

var
  arr: array[1..6] of Integer; // Ваш массив из шести элементов
  i, maxIndex, minIndex: Integer;
  maxElement, minElement: Integer;

begin
  // Ввод значений в массив (ваш массив может быть уже заполнен значениями)
  writeln('Введите значения массива:');
  for i := 1 to 6 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

// Инициализация начальных значений максимального и минимального элементов
  maxElement := arr[1];
  minElement := arr[4];
  maxIndex := 1;
  minIndex := 4;

// Поиск максимального элемента и его индекса среди первых трех элементов
  for i := 2 to 3 do
  begin
    if arr[i] > maxElement then
    begin
      maxElement := arr[i];
      maxIndex := i;
    end;
  end;

// Поиск минимального элемента и его индекса среди последних трех элементов
  for i := 5 to 6 do
  begin
    if arr[i] < minElement then
    begin
      minElement := arr[i];
      minIndex := i;
    end;
  end;

// Вывод результатов
  writeln('Максимальный элемент среди первых трех:', maxElement);
  writeln('Индекс максимального элемента:', maxIndex);
  writeln('Минимальный элемент среди последних трех:', minElement);
  writeln('Индекс минимального элемента:', minIndex);

end.

Программа просит пользователя ввести значения для массива из шести элементов, затем находит максимальный элемент и его индекс среди первых трех элементов, а также минимальный элемент и его индекс среди последних трех элементов. Результат выводится на экран.