Question

Домашка по информатике 9 класс
Сделать массив в Pascal!!!

Answer 1

===== 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.