Программа. n : = 0l; количество жильцов всего дома

VAR a: array [1..3, 1..6] of Integer;

y: array [1..3] of Integer;

e, j, f, n: Integer;

BEGIN

n: = 0l; количество жильцов всего дома

For I = 1 to 3 do

begin

writeln ('Введите количество жильцов в ', I, ' подъезда ')

y [I]: = 0; количество жильцов в I-ого подъезда

for I: 1 to 6 do

begin

read (a [I, j]);

y [I]: = y [I] + a [I, j];

end;

n: = n + y [I];

end;

For f: = 1 to 3 do

writehn (' количество жильцов ', f, ' подъезда: ', y [f]);

Writeln (' количество жильцов всего дома = ', n);

END.

СТРОКОВЫЙ ТИП String. РАБОТА СО СТРОКАМИ.

Вспомним, что описание VAR a: String говорит о том, что переменная а обязана иметь строковое (текстовое значение).

Чтобы сэкономить память, работая в квадратных скобках, после слова String, максимальную длину строки.

Например:

VAR a: String [20]. В этом случае под символы переменной ав память будет отведено 20 байт.

Если задана строка s: = ' Барка ', то считается автоматически заданным массив символов с тем же именем: s [1] = ' Б ', s [2] = ' a ', s [3] = ' н ', s [4] = ' к ', s [5] = ' а '. Тогда после выполнения оператора s [3]: = ' р ' мы получили s = ' Барка '.

Строки можно сравнивать. Условие S1 = S2 считается выполненным, если обе строки абсолютно одинаковы, включая и пробелы. Сравнивание идет посимвольно слева направо. Поэтому считается, что ' панк ' < ' парк ', так как первый несовпадающий символ ' р ' имеет больший номер в алфавите, чем ' н '.

ПРОЦЕДУРЫ, ФУНКЦИИ И ОПЕРАЦИИ ДЛЯ РАБОТЫ НАД СТРОКАМИ.