Найти максимальный элемент массива на языке делфи
Найти максимальный элемент массива на языке делфи
Гость
Ответ(ы) на вопрос:
Гость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;
Не нашли ответ?
Похожие вопросы