20% было по защите от тёмных искусств. четверть от оставшихся – по заклинаниям. 25% от оставшихся по астрономии. шестая часть от оставшихся – по трансгрессии. 10% от оставшихся – по нумерологии. треть от оставшихся – по трансфигурации. шестая часть от оставшихся – по травологии. остальные 15 были по полётам на метле. сколько было всего и сколько по каждому предмету?

1) просто выводим элементы наооборот program gt; var a: array[1..6]of longint; n,i: integer; begin read(n); for i: =1 to n do begin read(a[i]); end; for i: =6 downto 1 do begin write(a[i],' '); end; end. 2) добавляем дополнительный массив b program gt; var a,b: array[1..6]of longint; n,k,i: integer; begin read(n); k: =7; for i: =1 to n do begin read(a[i]); k: =k-1; b[k]: =a[i]; end; for i: =1 to 6 do begin write(b[i],' '); end; end. 3) изменяем элементы массива без дополнительных элементов program z10; var  p, i: integer;   x: array [1..6] of integer; begin for i: =1 to 3 do  begin p: =a[i]; a[i]: =a[6-i+1]; a[6-i+1]: =p; end; for i: =1 to 6 do begin write(a[i],' '); end; end.

Var  i, n, m: integer;   h: boolean = true; begin        writeln('начальное значение х должно быть меньше конечного иначе    программа не сработает! ');         write('введите начальное значение х > > > ');         read(n);         write('введите конечное значение х > > > ');       read(m);         writeln('====================================');         for i : = n to m do                if h = true then              begin                      writeln('x=', i, ' y=', 2 * i + 5);                       h : = false;               end              else                      h : = true; end.