Цикл с параметром и шагом -1 объявляется с использованием конструкции a) for i: =i1 downto i2 do ; b) repeat until (выражение_условие); c) for i: =i1 to i2 do ; d) if (выражение_условие) else ;

A) но заданную функциональность можно обеспечить и вариантом b) repeat until (выражение_условие); если внутри цикла менять счетчик i (i: =i-1) и обеспечить соответсвующую проверку в условии выхода из цикла.

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.