Заполнить массив из семи элементов случайными числами в интервале [ -10,10] и найти количество нулевых элементов массива , и если их нет , то вывести на экран (нулевых элементов нет ) . решить .
// 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
// Внимание! Если программа не работает, обновите версию!
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
Нулевых элементов нет