Какая задача решается с помощью следующего алгоритма?

второй половине месяца (с 15 месяца). Задачу решить оптимально,т.е. за минимально возможное время выполнения
2.Измените первую программу из задания 1 так,чтобы она выводила все дни в апреле,когда максимальная температура приходилась на четную дату
3.Измените программу из задания 2 так,чтобы она выводила количество дней в апреле,когда максимальная температура приходилась на четную дату

C:(A+B)*(B-A)

writeln(C)

end.

Задача связана с программой паскаль.

Повтори 2 раз
Команда1 Сместиться на (3, 2) Сместиться на (2, 1)
Конец
Сместиться на (–6, –4)
После выполнения этого алгоритма Чертёжник вернулся в исходную точку.
Какую команду надо поставить вместо команды Команда1?
1)
Сместиться на (–2, –1)
2)
Сместиться на (1, 1)
3)
Сместиться на (–4, –2)
4)
Сместиться на (2, 1)

2)Чертёжнику был дан для исполнения следующий алгоритм:
Повтори 4 раз
Команда1 Сместиться на (3, 3) Сместиться на (1, –2)
Конец
Сместиться на (–8, 12)
После выполнения этого алгоритма Чертёжник вернулся в исходную точку.
Какую команду надо поставить вместо команды Команда1?
1)
Сместиться на (–2, –4)
2)
Сместиться на (4, –13)
3)
Сместиться на (2, 4)
4)
Сместиться на (–8, –16)

p>

writeln(C)

end.

этот алгоритм?».

Var N, I, J, K, Pr : Integer; A : Array [1..30] Of Integer;

Begin

Write('Введите количество элементов: '); ReadLn(N);

For I := 1 To N Do

Begin

Write('Введите A[', I, '] '); Readln(A[I]);

End; WriteLn;

For I := 1 To N - 1 Do

Begin

K := I;

For J := I + 1 To N Do If A[J] <= A[K] Then K := J;

Pr := A[I]; A[I] := A[K]; A[K] := Pr;

End;

For I := 1 To N Do Write(A[I], ' ');

End.