Question

Нужно ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера. Pascal ABC

Answer 1

Var
a:array[1..5] of integer;
i,Max,c,n,f:integer;
 procedure ho;
 begin
       if a[i]>Max then
        begin
         Max:=a[i];
         c:=i;
        end;
 end;


 begin
   for i:=1 to 5 do
     begin
       a[i]:= random(15)+2;
       write(a[i],' ');
     end;
     Max:=a[1];
     c:=1;
     for i:=1 to 5 do
      ho;
      writeln;
      writeln('Максимум: ',max);
       f:=c;
                    if f=1 then
                    begin
                     max:=a[2];
                     for i:=2 to 5 do
                      ho;
                      writeln('Вторичный максимум: ',max);                                            exit;
                    end;       
                           if f<5 then
                      begin
                          Max:=a[f+1];
                          for i:=f+1 to 5 do
                          ho;
                          n:=max;
                       end;
                    if f>1 then
                      begin
                          Max:=a[1];
                          c:=f;
                          for i:=1 to c-1 do
                          ho;
                          if max>n then
                          writeln('Вторичный максимумì: ',max);
                          if max<n then
                          writeln('Вторичный максимум: ',n); 
                                               end;
   end.

Answer 2

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

program FindMaxElements;

var
  arr: array[1..5] of integer;
  i, max1, max2, index1, index2: integer;

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

// Нахождение двух максимальных элементов и их номеров
  max1 := arr[1];
  max2 := arr[1];
  index1 := 1;
  index2 := 1;

for i := 2 to 5 do
  begin
    if arr[i] > max1 then
    begin
      max2 := max1;
      index2 := index1;
      max1 := arr[i];
      index1 := i;
    end
    else if arr[i] > max2 then
    begin
      max2 := arr[i];
      index2 := i;
    end;
  end;

// Вывод результатов
  writeln('Первый максимальный элемент: ', max1);
  writeln('Номер первого максимального элемента: ', index1);
  writeln('Второй максимальный элемент: ', max2);
  writeln('Номер второго максимального элемента: ', index2);

end.

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

Например, если вы введете элементы массива в следующем порядке: 3, 7, 2, 9, 5, то программа выведет следующий результат:

Первый максимальный элемент: 9
Номер первого максимального элемента: 4
Второй максимальный элемент: 7
Номер второго максимального элемента: 2

Обратите внимание, что в данном примере предполагается, что вводимые элементы массива являются целыми числами. Если вам нужно работать с числами другого типа, например, с вещественными числами, вам следует изменить тип данных массива и соответствующие операции сравнения в коде.