Question

Помогите пожалуйста 1. Найти максимальное значение среди всех элементов массива. 2. Найти минимальное значение среди всех элементов массива. 3. Найти минимальное и максимальное значения среди всех элементов массива.(Паскаль)

Answer 1

//Pascal
var
  A: array [1..5] of integer;
  min, max: integer;
  i: byte;
begin
  writeln('Заполнение массива.');
  for i := 1 to 5 do
  begin
    write('А[', i, '] = '); readln(A[i]);
  end;
  writeln;
  Max := A[1]; Min := A[1];
  for i := 1 to 5 do
  begin
  if Max < A[i] then Max := A[i];
  if Min > A[i] then Min := A[i];
  end;
  writeln('Максимальное = ', Max);
  writeln('Минимальное = ', Min);
  writeln('Максимальное и минимальное = ', Max, ' и ',Min);
end.

Answer 2

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:= ReadlnString('Введите массив').ToIntegers;
Writeln('Максимальное значение: ', a.Max);
Writeln('Минимальное значение: ', a.Min);
end.

Answer 3

1. Для нахождения максимального значения среди всех элементов массива в Паскале можно использовать следующий код:

program MaxValue;

var
  arr: array[1..5] of Integer; // пример массива
  i, max: Integer;

begin
  // заполняем массив значениями
  arr[1] := 5;
  arr[2] := 8;
  arr[3] := 3;
  arr[4] := 12;
  arr[5] := 6;

// предполагаем, что первый элемент массива является максимальным
  max := arr[1];

// проходим по остальным элементам массива и сравниваем их с текущим максимальным значением
  for i := 2 to 5 do
  begin
    if arr[i] > max then
      max := arr[i];
  end;

// выводим результат
  WriteLn('Максимальное значение: ', max);
end.

2. Для нахождения минимального значения среди всех элементов массива в Паскале можно использовать следующий код:

program MinValue;

var
  arr: array[1..5] of Integer; // пример массива
  i, min: Integer;

begin
  // заполняем массив значениями
  arr[1] := 5;
  arr[2] := 8;
  arr[3] := 3;
  arr[4] := 12;
  arr[5] := 6;

// предполагаем, что первый элемент массива является минимальным
  min := arr[1];

// проходим по остальным элементам массива и сравниваем их с текущим минимальным значением
  for i := 2 to 5 do
  begin
    if arr[i] < min then
      min := arr[i];
  end;

// выводим результат
  WriteLn('Минимальное значение: ', min);
end.

3. Для нахождения минимального и максимального значений среди всех элементов массива в Паскале можно комбинировать коды из пунктов 1 и 2, чтобы найти оба значения в одном проходе по массиву.