Question

Заполнить массив из семи элементов случайными числами в интервале [ -10,10] и найти количество нулевых элементов массива , и если их нет , то вывести на экран (нулевых элементов нет ) . Помогите пожалуйста решить .

Answer 1

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(7,-10,10); a.Println;
  var k:=a.Where(t->t=0).Count;
  if k>0 then Writeln('Кол-во нулевых элементов равно ',k)
  else Writeln('Нулевых элементов нет')
end.

Примеры
-7 9 -4 -3 0 -4 7
Кол-во нулевых элементов равно 1

-3 -8 -8 9 10 2 10
Нулевых элементов нет