Всё просто
5 + 23 = 28
28 + 35 = 63
63 - 27 = 36
36 > 10? да ⇒ 36 + 5 = 41
41 / 2 без остатка? нет⇒ ничего
41 нечётное? да ⇒ 41 * 2 = 82
Вывод 82
конец
1) <span>I III V VII
2) </span><span>13,5
3) 340
4) 15410</span>
Program Task;
Const m = 12;
Var a: Array [1..m] of Integer;
i: Integer;
Function Max(a, b: Integer): Integer;
Begin
If a > b Then
Result := a
Else
Result := b;
End;
Function Min(a, b: Integer): Integer;
Begin
If a < b Then
Result := a
Else
Result := b;
End;
Begin
WriteLn('Введите среднемесячные температуры за год (через пробел)');
For i := 1 To m Do
Read(a[i]);
WriteLn('Самая высокая температура летом равна ', Max(Max(a[6], a[7]), a[8]));
WriteLn('Самая низкая температура зимой равна ', Min(Min(a[11], a[12]), a[1]));
ReadLn;
End.
a) - фильмы
б) - отрезки (не замкнутые)
в) - цыфры,буквы и тому подобное.