Создать программу для нахождения в данном массиве элементов равных 0

Question

Создать программу для нахождения в данном массиве элементов равных 0

Answer 1

Const ar:array[1..6] of integer = (1,0,4,-6,0,1);

var i,n:byte;
begin
  writeln('начальный массив');  
  for i:=1 to 6 do
    write(ar[i],'  ');

  n:=0;//количество найденных     
  for i:=1 to 6 do
    if ar[i]=0 then
      n:=n+1;
 
  writeln();
  writeln();
  writeln('Найдено ', n, ' элементов равных 0');
end.

---

Comments

Спасибо

---

Кстати, откуда вы взяли данные числа? ((1,0,4,-6,0,1);

---

Ниоткуда. Это просто случайные числа для проверки программы

---

можно заполнять RANDOM можно с клавиатуры, но это долго