Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(2.2) (5.9) (7.-12) (5.5) (2.12) (-10.-13) (-11.11) (1.4) (2.6)
Сколько было запусков, при которых программа напечатал "ДА"?

Этап 1

1. Разработка концепции:

возраст пользователя.

вид игры: развлекающая, развивающая, обучающая, комплексная.

2. Разработка адресных требований к игре:

к сценарию.

к игровой среде.

к графике игры.

3. Написание сценария:

создание сюжетной канвы с определением персонажей игры.

прописывание диалогов.

внесение в канву сценария игровых моментов (развлекающих, обучающих, развивающих).

прописывание речёвок и моментов ожидания действий пользователя.

проверка сценария на: удобство управления игрой, удобство перемещения в игровом поле, соответствие концепции и требованиям к данной игре; взаимное соответствие элементов сценария друг другу.

4. Разработка технических требований к игре и подготовка тех.задания.

5. Взаимодействие с разработчиками технической части игры:

передача сценария в разработку.

разработка визуальных образов персонажей и фонов игры.

стыковка пожеланий заказчика игры с возможностями разработчиков по организации игрового Озвучка персонажей, если в игре имеются говорящие персонажи.

6. Тестовая версия игры.

7. Подготовка второго этапа - итоги предварительной работы, обобщение опыта, план работы по доработке игры.

Const
  n = 15;

var
  x: array[1..n] of integer;
  i, min, max: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  min := 32767; max := -32768;
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:4);
    if (x[i] > 0) and (min > x[i]) then min := x[i]
    else
    if (x[i] < 0) and (max < x[i]) then max := x[i]
  end;
  Writeln;
  Writeln('Min=', min, ', max=', max)
end.

Тестовое решение:
Элементы массива
  29 -28 -14 -46 -22  13  -6  16  24 -47  -1  39  49  47 -23
Min=13, max=-1

const
  n = 15;

var
  x: array[1..n] of integer;
  i, max, max1: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  max := -32768; max1 := max;
  for i := 1 to n do
  begin
    x[i] := Random(100);
    Write(x[i]:3);
    if max < x[i] then begin max1 := max; max := x[i] end
    else
    if max1 < x[i] then max1 := x[i]
  end;
  Writeln;
  Writeln('Второй максимум равен ', max1)
end.

Тестовое решение:
Элементы массива
 37 66 92 11 39 32 70 17 28 80 51 37  1 56 41
Второй максимум равен 80