Инициализация массива символов

• Массив можно объявить и присвоить ему начальное значение непосредственно в разделе констант. При этом требуется соблюдение условия — длина тексто­вой константы должна равняться количеству элементов массива. CONST В: ARRAY[1 .. 50] OF CHAR = 'Я учусь программировать';

• Массив символов можно ввести с клавиатуры как последовательность симво­лов конечной длины N, не превышающей количество элементов массива — N ≤ HIGH(B) – LOW(B) + 1.

VAR ARRAY[1.. 500] OF CHAR; I, N: WORD;

BEGIN ...

WRITELN('Введите длину строки текста не более 500 символов, N');

READLN(N);

WRITELN('Введите строку текста В');

FOR I :=1 ТО N DO READ(B[I]); ...

Существенным недостатком этого способа ввода текста является необходимость знать точное количество символов N во вводимой строке.

• Массив символов можно заполнить в теле программы с помощью оператора присваивания. Но есть ограничение — количество символов в текстовой кон­станте должно быть равно количеству элементов массива.

VAR ARRAY[1..23] OF CHAR;

BEGIN ...

В:= 'Я учусь программировать';