===== PascalABC.NET =====
//1
begin
var a := ArrRandom(20, -5, 4);
a.Println;
var (nn, nz, np) := (0, 0, 0);
for var i := 0 to a.High do
if a[i] < 0 then
Inc(nn)
else if a[i] = 0 then
Inc(nz)
else Inc(np);
Println('Отрицательных', nn, ' нулевых', nz, ' положительных', np)
end.
// 2
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var b := ReadArrInteger('Введите элементы массива:', n);
var c := a.Zip(b, (p, q) -> p + q).ToArray;
c.Println
end.