Дан массив из n целых чисел.составить алгоритм,определяющий номера всех нулевых элементов...

Question

Дан массив из n целых чисел.составить алгоритм,определяющий номера всех нулевых элементов и их количество

Answer 1

// 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

Comments

Мы в школе почему то пишем все на русском.Например begin-начало,if-если

---

и в тетради

---

помогите перевести пожалуйста

---

Это нельзя перевести "на русский". На "русском" - это не Паскаль, а КУМир. Там этот алгоритм надо совсем иначе писать.

---

И на этом спасибо