Андрей, витя, сева и денис участвовали в спортивных соревнованиях и заняли четыре первых места. на вопрос кто какое занял место были получены 3 разных ответа: 1)сева занял- 1 место, витя- 2. 2)сева- 2, денис- 4. 3)андрей- 2, денис -4 . отвечавшие при этом признали, что одна часть каждого ответа верна, а другая неверна.какое место занял каждый мальчик?

Сева-1 место, денис-2 место, андрей-3 место и витя-4, по диаграмме решала

// pascalabc.net 3.4.2, сборка 1785 от 06.09.2018

№1

begin

  5.range.select(t -> random(-10, ; // диапазон целый

  5.range.select(t -> round(random(-10.00, 10.00), ; // диапазон вещественный

end.

пример:

-6 -1 -7 5 -8

-9.33 -5.91 -2.68 5.83 -7.51

№2

begin

  10.range.select((e, i)-> (e, (i + 1) * 22.(t -> begin  

                                    println($'{t[0],2: f0} шт. - {t[1]: f2} руб.') end)

end.

результат:

1 шт. - 22.40 руб.  

2 шт. - 44.80 руб.  

3 шт. - 67.20 руб.  

4 шт. - 89.60 руб.  

5 шт. - 112.00 руб.  

6 шт. - 134.40 руб.  

7 шт. - 156.80 руб.  

8 шт. - 179.20 руб.  

9 шт. - 201.60 руб.  

10 шт. - 224.00 руб.

s : = 0; (начальное значение счётчика)

  for i : = 1 to 9 do   (цикл по i)

if a[i - 1] < a[i] then begin (если текущий элемент больше  предыдущего,

  s : = s + 1; то увеличиваем счётчик на 1)

      t : = a[i]; (меняем текущий элемент местами с предыдущим)

      a[i] : = a[i - 1];

      a[i - 1] : = t

    end;

последние три строчки перед end  - обычный алгоритм обмена значениями между двумя переменными (t = a; a = b; b = t).

итак, моделируем, что делает программа и считаем число обменов.

0) 6 9 7 2 1 5 0 3 4 8 - исходный массив

1)  6 9 7 2 1 5 0 3 4 8 ->   9 6 7 2 1 5 0 3 4 8 обмен

2)  9 6  7 2 1 5 0 3 4 8 ->   9 7 6 2 1 5 0 3 4 8 обмен

3)  9 7 6  2 1 5 0 3 4 8 ок

4)  9 7 6  2 1 5 0 3 4 8 ок

5)  9 7 6  2 1 5 0 3 4 8 ->   9 7 6  2 5 1 0 3 4 8 обмен

6)  9 7 6  2 5 1  0 3 4 8 ок

7, 8, 9) ноль будет "всплывать" в конец, 3 обмена

всего будет 6 обменов, s = 6.

ответ: 6