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

Спасибо

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

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

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

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.