Дан массив из n целых чисел.составить алгоритм,определяющий номера всех нулевых э?
Дан массив из n целых чисел.составить алгоритм,определяющий номера всех нулевых э??ементов и их количество
Гость
Ответ(ы) на вопрос:
Гость // PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),-5,5);
a.Println;
var b:=a.Select((x,i)->x=0?i+1:0).Where(i->i>0);
if b.Count>0 then begin
b.Println(','); Writeln('Кол-во: ',b.Count)
end
else Writeln('Нет нулевых элементов')
end.
Тестовое решение:
n= 20
-4 2 5 -2 0 5 4 4 -3 -2 -5 2 1 0 -2 0 4 1 -2 3
5,14,16
Кол-во: 3
Не нашли ответ?
Похожие вопросы