Найти минимальный и максимальный элемент массива - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Написала программу для данной задачи:"Описать функцию Min(A,N) и Max(A,N) вещественного типа, находящую минимальный и максимальный элемент массива A, состоящего из N вещественных чисел. "
Нажимаю команду "Выполнить" он пишет следующую ошибку: (27) : Нельзя преобразовать тип array [1..4] of integer к array [1..4] of integer. Как ее исправить? P.S.27-это строка где находиться ошибка.

Решение задачи: «Найти минимальный и максимальный элемент массива»

textual
Листинг программы
function Min(A : array of Real; N : Integer) : Integer;
begin
  Result := 0;
  for var i := 1 to N-1 do
    if A[i] < A[Result] then
      Result := i;
end;
 
function Max(A : array of Real; N : Integer) : Integer;
begin
  Result := 0;
  for var i := 1 to N-1 do
    if A[i] > A[Result] then
      Result := i;
end;
 
begin
  var N := ReadLnInteger('Введите размер массива n =');
  var A : array of Real;
  SetLength(A, N);
  for var i := 1 to N do
    A[i-1] := ReadLnReal('Введите A[' + i.ToString + '] =');
  
  WriteLn(' Минимальный элемент массива A[', Min(A, N)+1, '] = ', A[Min(A, N)]);
  WriteLn('Максимальный элемент массива A[', Max(A, N)+1, '] = ', A[Max(A, N)]);
end.

Объяснение кода листинга программы

  1. Программа начинается с определения двух функций: Min и Max, которые предназначены для поиска минимального и максимального элемента массива соответственно.
  2. Функция Min принимает два аргумента: A (массив) и N (размер массива). Результатом работы функции является индекс минимального элемента в массиве.
  3. Функция Max также принимает два аргумента: A (массив) и N (размер массива). Результатом работы функции является индекс максимального элемента в массиве.
  4. Далее идет основная часть программы, которая начинается с запроса у пользователя размера массива (переменная N).
  5. Создается массив A заданного размера.
  6. Затем происходит заполнение массива A с помощью цикла и функции ReadLnReal, которая запрашивает у пользователя ввод действительного числа и сохраняет его в соответствующем элементе массива.
  7. Вызываются функции Min и Max с аргументами A и N, и результат выводится на экран с помощью функции WriteLn. При этом к имени функции Min и Max добавляется номер найденного минимального и максимального элемента массива, чтобы корректно отобразить индексы.
  8. Значения минимального и максимального элемента массива также выводятся на экран с помощью функции WriteLn.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы