Найти максимальный элемент массива на языке делфи

Question

94

в избранное ссылка

Знаете ответ?

operkot · Accepted Answer

56

operkot

04 марта 2023

Function Max (x: massiv): integer; var i,m: integer; begin m: =x[1]; for i: =2 to N do if x [ i ] > m then m: =x [ i ]; Max: =m; end;

комментировать

в избранное ссылка отблагодарить