Исполнитель Черепашка перемещается на экране компьютера, оставляя след в виде линии. В каждый конкретный момент известно положение исполнителя и направление его движения. У исполнителя существует две команды: Вперёд n (где n – целое число), вызывающая передвижение Черепашки на n шагов в направлении движения; Направо m (где m – целое число), вызывающая изменение направления движения на m градусов по часовой стрелке. Запись Повтори k [Команда1 Команда2 Команда3] означает, что последовательность команд в скобках повторится k раз. Черепашке был дан для исполнения следующий алгоритм: Повтори 4 [Направо 60 Вперед20 Направо 60] Какая фигура появится на экране? 1) правильный треугольник 2) квадрат 3) правильный шестиугольник 4) незамкнутая ломанная линия

var m,a:array [-100..100] of integer;

n,j,i,k,count:integer;

begin

write('введите сколько необходимо чисел: ');

read(n);

write('число к: ');

read(k);

//осуществим ввод n элементов и отсортируем по условию в другой массив а

for i:=1 to n do begin

 read(m[i]);

if m[i]>k then begin

 inc(count);

 a[count]:=m[i];

 end;

end;

//отсортируем этот массив пузырьковым методом  

for i:=1 to count-1 do begin

 for j:=1 to count-i do

   if a[j] < a[j+1] then

     swap(a[j],a[j+1]);

  end;

//выводим уже отсортированный массив чисел > к

  for i:=1 to count do

    write(a[i],' ');

end.

Собака - друг людини. Я люблю собак, тому що це відданий і доброзичливий друг. З собакою можна пограти або навчити її різним командам. Якщо господареві загрожує небезпека, собака буде захищати його навіть ціною власного життя.

Собака привчає до відповідальності, адже за нею необхідно щодня доглядати: годувати, вигулювати, не забувати міняти воду для пиття.

Якщо у людини поганий настрій, йому сумно або у нього щось болить, собака відчуває це і всіляко намагається до своїм господарям, підняти їм настрій.

Я люблю собак, адже вони віддають нам тепло і любов.