Перед открытием основного окна программы появляется окно выбора, один из ГОТОВЫХ
шаблонов. В шаблонах имеется:
1. Простой шаблон.
2. Архитектурное
проектирование.
3. Моделирование.
4. Инженерное
проектирование.
5. Проектированіе изделий и
деревообработка.
6. Горизонтальная проекция.
7. Вводный обучающий
шаблон
1.Универсальный шаблон
2.Стандартный шаблон
остался 1 час​

ответ на рисунке и сделай лутчий ответ

1. pascal abcconst  nn=100; var  m,c: array[1..nn] of integer;   x,i,n,s,max: integer;   m1,r: real; begin  write('x=');   read(x);   write('> ');   s: =0;   n: =0;   for i: =1 to x do begin      read(m[i]);       if m[i]> 3 then begin          s: =s+m[i];           n: =n+1      end  end;   if n> 0 then m1: =s/n  else m1: =0;   max: =m[x];   for i: =x-1 downto x-9 do      if m[i]> max then max: =m[i];   r: =max/m1;   n: =0;   for i: =1 to x do      if m[i]> r then begin          n: =n+1;           c[n]: =m[i];           write(c[n],' ')          end; end. пример x=18 > -15 -19 -32 3 2 35 32 12 -44 39 -36 16 31 5 17 21 -43 -20 3 2 35 32 12 39 16 31 5 17 21 2. pascalabc.net 3.2, сборка 1370 от 24.12.2016 если программа не работает, обновите версию! begin   var m: =readarrinteger('> ',readinteger('x='));   var r: =(m.takelast(10).max)/(m.where(b-> b> 3).average);   var c: =m.where(b-> b> r).toarray; c.println end. пример x= 18 > -15 -19 -32 3 2 35 32 12 -44 39 -36 16 31 5 17 21 -43 -20 3 2 35 32 12 39 16 31 5 17 21 сравнение явно не в пользу школьного