найти максимальный элемент массива и его номер при условии если элементы равны,то максимальный последний

Question

найти максимальный элемент массива и его номер при условии если элементы равны,то максимальный последний

Диля Саетбатталова Ученик (116), закрыт 10 лет назад

в Pascal или Delphy

Answer 1

Pascal

Program name;
Uses crt;
Const N=10; {вместо 10 подставляете сколько у Вас элементов в массиве}
Var a:array[1..N] of integer;
i,max,imax:integer;
Begin clrscr;
for i:=1 to N do begin
writeln('a[',i,']=');
readln(a [ i ] );
end;
max:=a[1];
for i:=2 to N do
if a[ i ]>=max then begin max:=a[ i ]; imax:=i;end;
writeln('maximal'nii element=',max);
writeln('nomer maximal'nogo elementa=',imax);
readkey;
End.

Answer 2

max := ar[1];
maxpos := 1;
for idx := 2 to High(ar) do
if (ar[idx] >= max) then
begin
max := ar[idx];
maxpos := idx;
end;