<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(5,-13,8).Println.Where(t->(t<0) and t.IsOdd).ToArray;
if a.Count>0 then a.Aggregate(1,(i,j)->i*j).Println
else Writeln(0)
end.
<u>Пример</u>
-2 -6 -6 -7 -13
91
1) местонахождение адреса данной страницы
2) название страницы
3) основное место
4) фоновый звук, время воспроизведения музыки и местонахождение файла
Вычислим первую пустую ячейку 191-123=68
вычислим вторую пустую ячейку 348+21=369
вычислим третью пустую ячейку 308-210=98
итого можно записать содержащуюся информацию в виде
123+68=191
348+21=369
98+210=308
Var s:real;
begin
write('Сумма покупки = ');
readln(s);
if s>100 then writeln('Скидка = ',s*0.1)
else writeln('Скидка = ',s*0.05);
end.
Пример:
Сумма покупки = 200
Скидка = 20