Определить сколько нулевых элементов в массиве

Var
  A: array [1..10] of real;
  i, n: integer;  //n - счетчик

begin
  n:= 0;
  for i:= 1 to 10 do
  begin
    writeln('Введите число');
    readln(A[i]);
    if A[i] = 0 then n:= n + 1;
  end;
  writeln('Количество нулевых элементов:  ', n);
end.

Для создания страниц требуется виучить веб-розработку для начала.

Объяснение:

Для создания таких страниц нужно создать файл HTML в которому нужно написать скрипты разних сираниц

Например

1 страница- 1 уровня тоесть ето будет .index

2 страница- например блог ето будет .blog

Таким образом можна создавать страницы разного уровня,главное что би тот кто смотрел на сайт понимал где какая страница.Для етого используем скрипти и подписи в коде,здесь главную роль играет скрипт кода.

Надеюсь я смог обяснить принци создания интернет(веб) страниц.

Program CountA;

Uses Crt;

var a,n,x,i:integer;

begin

clrscr;  // очищаем экран

write('Введите число n:');

readln(n); // ввод данных

write('Введите цифру а: ');

readln(a);  // ввод данных

x:=1; i:=0;  i-счётчик цифр а  

while (n<>0) do // Пока n не стало равным нулю

begin

    x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа  

   if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1 

   n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)

 end;

writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');

readkey; // Пауза до нажатия на любую клавишу

end.

Не знаю, правильно или нет‍♀️