const n =5;
VAR a: array [1..n] of integer;
S, I: integer;
BEGIN
For I = 1 to n do readln (a [I]);
For I: 1 to n do write (a [I]; 1);
writehn;
S: = 0;
For I = 1 to n do if a [I] > 0 then S: = S +U [I];
write ('S = ', S);
END.
IV. Двумерные массивы.
Описание двумерного массива имеет вид:
VAR имя_массива: array [номер_1столбца.. номер_посл_столбца] of тип_данных;
Так, таблица сложения натуральных чисел может быть описана так:
VAR Add: array [1..9,1..9] of Integer;
Обратиться к элементу двумерного массива можно, указав номер строки (индекс I) и номер столбца (индекс I) в квадратных скобках после имени массива. Так, например, на пересечении сложения чисел стоит элемент Add [2,5], он равен 7.
Пример задания двумерного массива:
1 способ (примитивное присваивание)
VAR t: array [1..3, 1..4] of Integer;
BEGIN
t [1,1]: = - 8; … t [1,1]: = - 18;
…
t [3,1]: = 11; … t [3,4]: = 25;
2 способ (с помощью клавиатуры)
VAR a: array [1..3, 1..4] of Integer;
BEGIN
For I = 1 to 3 do
begin
writehn ('Введите элементы ', I, ' строки ');
For I: = 1 to 4 do Readhn (a [I, j]);
end; for
Задача.
В доме 3 подъезда по 6 квартир. Число жильцов в каждой квартире известно. Данные хранятся в виде таблицы:
а) жильцов в каждом подъезде
б) во всем доме.