Даний масив цілих чисел A розміру N. Вивести номер першого (останнього) з тих його елементів A[i], які задовольняють подвійній нерівності: A[1]< A[i]< A[N]. Якщо таких елементів немає, то вивести 0.

Объяснение:

1. Во 2 примере параграфа использовано больше всего слов-профессионализмов, так как этот пример написан в научном стиле.

2. По истории: словесная модель Бородинского сражения, словесная модель Первой мировой войны.

По географии: словесная модель характеристики Черного моря, словесная модель горного ландшафта.

По биологии: словесная модель одноклеточного организма (например: бактерии, амёбы).

3. Волк и ягненок - доверчивость.

Ворона и Лисица - хвастовство затмило разум, манипуляции.

Демьянова уха - заниженная самооценка.

Квартет - несплоченность.

Лебедь, Щука и Рак - несплоченность, не умение работать в команде

4.Если вода будет течь только через вторую трубу, бассейн будет заполнен через 24 часа, а если в процессе будут участвовать обе, то через 8 часов. Значит, первая ускорила процесс на 16 часов, и, значит, она вдвое быстрей передавала воду. Поэтому, если она одна будет работать, то будет это делать вдвое быстрей, а значит за 24/2 = 12 часов

Const
  n = 3;
var
  a:array[1..n,1..n] of integer;
  minc:array[1..n] of integer;
  i,j,min,maxr:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    min:=100;
    for j := 1 to n do
    begin
      a[i,j]:=Random(21)-10;
      Write(a[i,j]:4);
      if min>a[i,j] then min:=a[i,j]
    end;
    Writeln;
    minc[i]:=min
  end;
  maxr:=-100;
  Write('Минимальные элементы построчно: ');
  for i:=1 to n do
  begin if maxr<minc[i] then maxr:=minc[i]; Write(minc[i]:4) end;
  Writeln;
  Writeln('Максимальный среди минимальных: ',maxr)
end.

Тестовое решение:
Исходный массив
  10  -3   6
  -2   6   4
   0   8 -10
Минимальные элементы построчно:   -3  -2 -10
Максимальный среди минимальных: -2