Написать программу,которая возвращает функцию нахождения минимального элемента любого целочисленного элемента
Answers & Comments
GuitarMan
Быть может, написать программу, функция которой возвращает найденный минимальный элемент целочисленного массива?
0 votes Thanks 0
HRAshton
Function min(a: array of integer): integer; var i, m: integer; begin for i := 0 to length(a) do if (a[i] < m) then m := a[i]; result := m; end;
Вот, в теории должно работать, но проверить, извините, не могу, PascalABC не поддерживает передачу массивов><
Answers & Comments
var i, m: integer;
begin
for i := 0 to length(a) do
if (a[i] < m) then m := a[i];
result := m;
end;
Вот, в теории должно работать, но проверить, извините, не могу, PascalABC не поддерживает передачу массивов><