Question

Дан одномерный массив на 30 элементов, заполненный случайными числами от -100 до 100. Требуется определить и вывести значение и номер максимального элемента. Если таких элементов несколько, вывести все номера элементов, имеющих максимальное значение в одной строке, сами значения – в другой строке PascalABC.Net

Answer 1

const

 n = 30;

var

 mx, i: integer;

 a: array [1..n] of integer;

begin

 for i:=1 to n do

   readln(a[i]);

 mx := -101;

 for i:=1 to n do

   if a[i] > mx then

     mx := a[i];

 for i:=1 to n do

   if a[i] = mx then

     write(i, ' ');

 writeln();

 write(mx)

end.

Answer 2

Вот пример кода на PascalABC.Net, который находит максимальный элемент и выводит его значение и номер в массиве. Если в массиве есть несколько элементов с максимальным значением, то программа выводит все номера в одной строке и значения в другой строке:

arduinoCopy code
const
  n = 30;
  
var
  arr: array[1..n] of integer;
  max_val, i: integer;
  max_indices: string;
  
begin
  // заполняем массив случайными числами
  for i := 1 to n do
    arr[i] := random(201) - 100; // генерируем случайное число от -100 до 100
  
  // ищем максимальный элемент и его номер
  max_val := arr[1];
  max_indices := '1';
  for i := 2 to n do
  begin
    if arr[i] > max_val then
    begin
      max_val := arr[i];
      max_indices := IntToStr(i);
    end
    else if arr[i] = max_val then
    begin
      max_indices := max_indices + ', ' + IntToStr(i);
    end;
  end;
  
  // выводим результаты
  writeln('Максимальный элемент: ', max_val);
  writeln('Номер(а) максимального элемента: ', max_indices);
end.

Программа использует переменную max_val для хранения текущего максимального значения и переменную max_indices для хранения номеров элементов, которые имеют максимальное значение. При обходе массива, если текущий элемент больше max_val, то max_val обновляется и max_indices становится равной номеру этого элемента. Если текущий элемент равен max_val, то его номер добавляется к max_indices. В конце программы выводятся значения max_val и max_indices.