Дан массив X, состоящий из n элементов. Найти максимальный элемент массива и номер, под которым он хранится в массиве.
Алгоритм:
Фрагмент программы:
Max:=X[1];
Nmax:=1;
for i:=2 to N do
if X[i]>Max then
begin
Max:=X[i];
Nmax:=i;
end;
MessageDlg('MAX='+
FloatToStr(Max)+chr(13)+
'Nmax='+IntToStr(Nmax),MtInformation,[mbOk],0);
Алгоритм поиска минимального элемента в массиве будет отличаться от приведенного выше лишь тем, что в условном блоке и, соответственно, в конструкции if текста программы знак поменяется с > на <.
