Написать программку,которая отдаёт функцию нахождения малого элемента любого

Написать программку,которая отдаёт функцию нахождения малого элемента хоть какого целочисленного элемента

Задать свой вопрос
2 ответа
Function min(a: array of integer): integer;
var i, m: integer;
begin
     for i := 0 to length(a) do
         if (a[i] lt; m) then m := a[i];
     result := m;
end;

Вот, в теории обязано работать, но проверить, извините, не могу, PascalABC не поддерживает передачу массивовgt;lt;
Быть может, написать программку, функция которой отдаёт отысканный минимальный элемент целочисленного массива?

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт