Программа

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]; ¹);

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 квартир. Число жильцов в каждой квартире известно. Данные хранятся в виде таблицы:

а) жильцов в каждом подъезде

б) во всем доме.