А) лук, выращиваемый на грядке
Вход:
Вода
Выход:
плод, корни.
Извиняюсь если ответ не правильный ( особбенно пояснение!)
Var a,b:real;
begin
read(a,b);
swap(a,b);
write(a,b);
end.
Можно заменить на
read(x1,y2,x3,x4);
<h3>PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var p:=SeqRandomReal(ReadInteger('n='),-99,99)
.Select(t->Round(t,2)).ToArray;
p.Println;
Println('Сумма положительных',p.Where(r->r>0).Sum);
Println('Сумма отрицательных',p.Where(r->r<0).Sum)
end.