Даны натуральное число x и целые числа a₁, a₂ aₓ. найти: а) номер максимального из чисел aₓ. если чисел с максимальным значением несколько, то должен быть найден номер последнего из них; б) номер минимального из чисел aₓ. если чисел с минимальным значением несколько, то должен быть найден номер первого из них. выполнить в программе pascal abc.

//Pascal ABC.NET v3.1 сборка 1172

//1
Var
 i,x,max,n,maxi:integer;
begin
max:=-32768;
readln(x);
i:=0;
 while i<>x do
  begin
   i:=i+1;
   readln(n);
   if n>=max then
    begin
     max:=n;
     maxi:=i;
    end;
  end;
writeln(maxi);
end.

Пример ввода:
3
1
2
2
Пример вывода:
3

//2
Var
 i,x,min,n,mini:integer;
begin
min:=32767;
readln(x);
i:=0;
 while i<>x do
  begin
   i:=i+1;
   readln(n);
   if n<min then
    begin
     min:=n;
     mini:=i;
    end;
  end;
writeln(mini);
end.

Пример ввода:
3
1
1
2
Пример вывода:
1