Question

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

Answer 1

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;