<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var k:=ReadInteger('k=');
var a:=ReadArrInteger('>',k);
var sp:=a.Where(x->x>0).Sum;
var po:=a.Where(x->x<0).Aggregate(BigInteger(1),(p,q)->p*q);
var b:=a.Select(x->x>0?po:(x<0?sp:0)).ToArray;
b.Println
end.
<u>Пример</u>
k= 10
> 9 20 -11 5 0 16 8 11 2 -17
187 187 71 187 0 187 187 187 187 71
За 1 час стрелка поворачивается на 360/12 = 30 градусов.
Если она повернулась на бета градусов, то прошло бета/30 часов.
Показание часовой стрелки понятно, показание минутной рассчитывается.
Каждый час = 60 минут минутная стрелка поворачивается на 360 градусов,
То есть время равно int(beta/30) часов и (beta mod 30)*60 минут.
Здесь int - это "целая часть числа", mod - "остаток от деления".
Формальные языки - языки, в которых осмысленные сообщения содержат символы конечного алфавита, строятся и интерпретируются по определённым чётким правилам.
Примеры формальных языков: языки программирования, язык логики. Можно построить и свой формальный язык: например, будем бросать монетку и приписывать к строчке О, если выпал орёл, и Р, если выпала решка. Тогда множество строк, содержащих О и Р будет формальным языком, в котором, например, ОРР будет означать, что в первый раз выпал орёл, а потом два раза - решка.
