ответ:Многие страны перешли на т.н. «информационное общество», некоторые – в процессе перехода, в зависимости от факторов, влияющих на то или иное население. Все меньше уделяется внимания печатным изданиям: ученные говорят о том, что лет через 30 газеты, журналы, книги исчезнут с прилавков.
С одной стороны, электронные страницы – это хорошо, меньше вреда наносится окружающей среде, да и хранить большое количество информации легче и удобнее в электронном виде. С другой стороны – человечество становится все более зависимым от техники.
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var x:=ArrRandom(n,-5,25); x.Println; var y:=ArrRandom(n,-5,25); y.Println; var z:=x.Zip(y,(p,q)->p-q).ToArray; z.Println; var s:=z.Sum; var c:=s<0 ? 'отрицательный' : s=0 ? 'отсутствует' : 'положительный'; Writeln('Сумма равна ',s,', знак суммы ',c) end.
ответ:Многие страны перешли на т.н. «информационное общество», некоторые – в процессе перехода, в зависимости от факторов, влияющих на то или иное население. Все меньше уделяется внимания печатным изданиям: ученные говорят о том, что лет через 30 газеты, журналы, книги исчезнут с прилавков.
С одной стороны, электронные страницы – это хорошо, меньше вреда наносится окружающей среде, да и хранить большое количество информации легче и удобнее в электронном виде. С другой стороны – человечество становится все более зависимым от техники.
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var x:=ArrRandom(n,-5,25); x.Println;
var y:=ArrRandom(n,-5,25); y.Println;
var z:=x.Zip(y,(p,q)->p-q).ToArray; z.Println;
var s:=z.Sum;
var c:=s<0 ? 'отрицательный' : s=0 ? 'отсутствует' : 'положительный';
Writeln('Сумма равна ',s,', знак суммы ',c)
end.
Пример
n= 13
2 -5 24 3 23 22 -3 6 -3 -2 9 25 8
17 9 11 8 0 -2 -2 2 25 19 16 21 -4
-15 -14 13 -5 23 24 -1 4 -28 -21 -7 4 12
Сумма равна -11, знак суммы отрицательный