а: = 123
b: = а div10 = 12
b: =b/4+2 = 12 / 4 + 2 = 5
b: =b *25+2 = 5 * 25 + 2 = 127
а: = а+b = 123 + 127 = 250
4) а < 0
судя по этому должна быть ошибка в паскале...
<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
begin
var x:=ArrRandom(ReadInteger('Введите размер массива->'),-5,5); x.Println;
var y:=x.Select(t->t<0?abs(t):t); y.Println;
Println('Произведение:',x.Where(t->t<>0).Aggregate((a,b)->a*b));
end.
Пример:
Введите размер массива-> 10
1 2 -1 2 4 4 1 1 -3 2
1 2 1 2 4 4 1 1 3 2
Произведение: 384
3,6,9,12,15,18,21,24,27,30,33,36,39,42,45,48,51,54,57,,60,63,66,69,72,75,78,81,84,87,90,93,96,99.
Вроде так