Задано первое число 5

алгоритм:

1. для получения числа с четным номером предыдущее число умножить на 3

2. для получения числа с нечетным номером из предыдущего числа вычесть 7

выполни алгоритм и запиши первые десять чисел последовательности, числа разделяй пробелами.

Var
   i,j,t,x:integer;
   a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
   begin
   a[i]:=random(-100,100);
   write(a[i]:5)
   end;
i:=2;
while i<11 do
   begin
   t:=a[i];
   a[i]:=a[i-1];
   a[i-1]:=t;
   i:=i+2
   end;
writeln;
writeln('Переставленный массив:');
for i:=1 to 10 do
   begin
   write(a[i]:5);
   if a[i] mod 2=0 then x:=x+1
   end;
writeln;
writeln('Четных элементов: ',x);
//Гномья сортировка   
i:= 2;   
j:= 3;
while i < 11 do
        if a[i - 1] > a[i] then
            begin
            i:= j;
            j:= j + 1
            end
        else
            begin
            t:= a[i - 1];
            a[i - 1]:= a[i];
            a[i]:=t;
            i:= i - 1;
            if i = 1 then
                begin
                i:= j;
                j:= j + 1
                end
            end;
writeln('Отсортированный массив:');
for i:=1 to 10 do  write(a[i]:5)
end.

Это фонЭто не знаю Это главный герой(и) на твоей сценеОно расположено там же где и сцена , а на сцене расположен фонНужно нажать правой кнопкой мыши на спрайт ,и выбрать "дублировать"

    6. Нужно нажать правой кнопкой мыши на спрайт ,и выбрать "дублировать"

    7.Нужно нажать правой кнопкой мыши на спрайт ,и выбрать "изменить размер объекта"

    8. Когда флажок нажат :

        Когда клавиша пробел нажата:

        идти ... шагов

        если край, оттолкнуться

        играть звук ...

        перейти к костюму : ...

        следующий костюм

        опустить перо

        поднять перо

        установить цвет пера: ...

        установить эффект: ... в значение: ...

        ждать: ... секунд

        если: ...

        повторять пока не

        повторять всегда

        повторить: ... раз

        остановить скрипт

        остановить всё