Question

Написать алгоритм нахождения наибольшего элемента в одномерном массиве. Элементы массива вводит пользователь (язык паскаль)

Answer 1

program raf105;

const

 n = 5;

var

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

 i,max: integer;

begin

max:= -10000;

writeln('Заполните массив:');

for i:=1 to n do

begin

 readln(a[i]);

 if a[i] > max

   then max:= a[i];

end;

writeln('Наибольший элемент: ',max);

end.

PascalABC 3.4.2

Answer 2

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

pascalCopy code
program MaxElementInArray;

const
  MAX_SIZE = 100; // Максимальный размер массива

var
  arr: array[1..MAX_SIZE] of Integer;
  n, i, maxElement: Integer;

begin
  WriteLn('Введите размер массива (не более ', MAX_SIZE, '): ');
  ReadLn(n);

  // Проверка на корректность размера массива
  if (n <= 0) or (n > MAX_SIZE) then
  begin
    WriteLn('Некорректный размер массива. Пожалуйста, введите значение от 1 до ', MAX_SIZE, '.');
    Exit; // Выход из программы
  end;

  // Ввод элементов массива
  WriteLn('Введите элементы массива: ');
  for i := 1 to n do
    ReadLn(arr[i]);

  // Находим наибольший элемент в массиве
  maxElement := arr[1];
  for i := 2 to n do
  begin
    if arr[i] > maxElement then
      maxElement := arr[i];
  end;

  // Вывод результата
  WriteLn('Наибольший элемент в массиве: ', maxElement);
end.

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