Question

СРОЧНО!!! НУЖНО НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ!!! Поиск максимального элемента массива

Answer 1

PascalABC.NET:

• ##
• var n := ReadInteger('Введите длину массива:');
• var a := ReadArrReal('Введите элементы массива:', n);
• Print('Максимальный элемент:', a.Max)

Answer 2

Конечно, вот пример программы на языке Pascal, который находит максимальный элемент в массиве:

pascalCopy code
program FindMaxElement;
const
  MaxSize = 100; // Максимальный размер массива
var
  arr: array[1..MaxSize] of integer;
  n, i, maxElement: integer;
begin
  // Ввод размера массива
  write('Введите размер массива: ');
  readln(n);

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

  // Начальное значение максимального элемента
  maxElement := arr[1];

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

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

  readln;
end.

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