Question

Сформировать целочисленный массив из 25 элементов. Элементы массива принимают значения от -15 до 20. Найти максимальный элемент и его номерПлиз очень надо(турбо паскале), за ранее спасибо)!!

Answer 1

Type
  arr=array[1..25] of integer;
var
  ar:arr;
  i,maxi,max:integer;
begin
  randomize;
  max:=-16;
  for i:=1 to 25 do begin
    ar[i]:=(random(36)-15);
    write(ar[i],' ');
    if ar[i]>max then begin
      max:=ar[i];
      maxi:=i;
    end;
  end;
  writeln;
  write(max,' ',maxi);
  readln;
end.

Answer 2

Для решения задачи в Turbo Pascal необходимо создать и заполнить массив элементов, затем найти максимальный элемент и его номер.

Вот пример кода на Turbo Pascal, который решает данную задачу:

program MaxElement;
var
  arr: array[1..25] of integer;
  i, maxElement, maxIndex: integer;
begin
  // Заполнение массива случайными значениями от -15 до 20
  Randomize;
  for i := 1 to 25 do
    arr[i] := random(36) - 15;

// Поиск максимального элемента
  maxElement := arr[1];
  maxIndex := 1;
  for i := 2 to 25 do
  begin
    if arr[i] > maxElement then
    begin
      maxElement := arr[i];
      maxIndex := i;
    end;
  end;

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

Рассмотрим основные шаги алгоритма: 1. Объявляем массив `arr` из 25 элементов типа `integer`. 2. Используя функцию `Randomize`, инициализируем генератор случайных чисел в Turbo Pascal. 3. В цикле `for` заполняем массив случайными значениями от -15 до 20 и сохраняем их в элементах массива `arr[i]`. 4. Инициализируем переменные `maxElement` и `maxIndex` первым элементом массива. 5. В цикле `for` перебираем все элементы массива с 2-го по 25-й, сравниваем каждый элемент с текущим максимальным элементом `maxElement` и, если он больше, то обновляем значение `maxElement` и сохраняем текущий индекс `i` в `maxIndex`. 6. Выводим на экран найденный `maxElement` и `maxIndex`.

Строки `writeln` служат для вывода результатов на экран.

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