Ввести натуральное n, n целых чисел. Найти максимальное число и его номер. Если чисел несколько, то номер последнего.

1

Ответы и объяснения

2014-01-16T22:21:20+04:00
Program gt;
var n,i,a,l,max:integer;
begin
read(N);
for i:=1 to n do
begin
read(a);
if(a>=max)then begin
max:=a;
l:=i;
end;
end;
writeln(max,' ',l);
end.