Question

Дан одномерный массив найдите максимальный и минимальный элемент и выведите на экран , на паскале пожалуйста ​

Answer 1

// PascalABC.NET 3.6

begin

 var n := ReadInteger('Укажи длину массива:');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 Println('Максимум:', a.Max);

 Println('Минимум:', a.Min)

end.

Answer 2

begin

 var n := ReadInteger('Укажи длину массива:');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 Println('Максимум:', a.Max);

 Println('Минимум:', a.Min)

end.

Answer 3

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

pascalCopy code
program MaxMinArray;

const
  N = 10; // Размер массива

var
  arr: array[1..N] of Integer;
  i, maxElement, minElement: Integer;

begin
  // Заполняем массив случайными числами
  Randomize; // Инициализируем генератор случайных чисел
  for i := 1 to N do
    arr[i] := Random(100); // Генерируем случайное число от 0 до 99

  // Инициализируем начальные значения для максимального и минимального элементов
  maxElement := arr[1];
  minElement := arr[1];

  // Находим максимальный и минимальный элементы
  for i := 2 to N do
  begin
    if arr[i] > maxElement then
      maxElement := arr[i];
      
    if arr[i] < minElement then
      minElement := arr[i];
  end;

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

Этот код создает массив из 10 случайных чисел, находит максимальный и минимальный элементы с помощью цикла, а затем выводит их на экран.