Подсчитать количество элементов равных символу ''+'' - Pascal

Формулировка задачи:

Дан одномерный символьный массив(char).Подсчитать количество элементов равных символу ''+''

Решение задачи: «Подсчитать количество элементов равных символу ''+''»

Листинг программы

program CharArray;
uses crt;
const N = 10000;
var x:array [1..N] of char;
    a, i, j:integer;
begin
  clrscr;
  j:=0;
  writeln('Введите количество элементов массива');
  readln(a);
  writeln('Введите массив');
  for i:=1 to a do
  begin
    readln(x[i]);
    if x[i]='+' then
      inc(j);
  end;
  writeln('В массиве ', j, ' элементов равных "+"');
end.

Объяснение кода листинга программы

В этом коде:

Объявляется программа с названием CharArray, которая использует модуль CRT (такой модуль позволяет использовать функции ввода-вывода).
Устанавливается константа N, которая определяет размер массива. Значение N равно 10000.
Создается массив типа char с именем x, размером N.
Создаются три переменные типа integer: a, i, j.
Переменная j инициализируется значением 0.
Выводится сообщение Введите количество элементов массива и считывается значение переменной a.
Выводится сообщение Введите массив и считывается массив x.
Запускается цикл for, который проходит по всем элементам массива от 1 до a.
Внутри цикла считывается каждый элемент массива и проверяется, равен ли он символу +.
Если элемент равен символу +, то к переменной j прибавляется 1.
По завершении цикла выводится сообщение В массиве + j + элементов равных ``+```. Этот код подсчитывает количество элементов в массиве, равных символу+`.