Question

дан целочисленный массив А размера 10. вывести порядковый номер последнего

из тех его элементов Ак,которые удовлетворяют двойному неравенству А1<Ak<A10.

Если таких элементов нет то вывести 0

Answer 1

var
  i, k: integer;
  a: array [1..10] of integer;
begin
  writeln('Введите 10 элементов: ');
  for k := 1 to 10 do readln(a[k]);
  for k := 1 to 10 do
     if (a[k] > a[1]) and (a[k] < a[10]) then i := k;
  writeln('Порядковый номер последнего из элементов, удовлетворяющих А1<Ak<A10: ', i)
end.