Водномерном массиве случайных чисел в диапазоне от -60 до +60 вычислить z=s1+s2/2 , где s1 – сумма положительных элементов массива, s2 – сумма отрицательных элементов массива. решить по паскалю
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-60,60); a.Println; var (s1,s2):=(a.Where(x->x>0).Sum,a.Where(x->x<0).Sum); var z:=s1+s2/2; Writeln('z=',z) end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-60,60); a.Println;
var (s1,s2):=(a.Where(x->x>0).Sum,a.Where(x->x<0).Sum);
var z:=s1+s2/2;
Writeln('z=',z)
end.
Пример
n= 16
-3 -42 48 -6 -27 45 -44 43 -34 53 19 -28 57 12 -19 -1
z=175