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.

Answer 2

Спасибо

Answer 3

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

Answer 4

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

Answer 5

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