end;
{построение массива наибольших значений элементов строк таблицы}
for i: = 1 to n do
Begin
a[i]:= b[i, 1 ];
for j: = 2 to n do
if a [ i ] < b [ i, j ] then a [ i ]: = b [ i, j]
end;
writeln('наибольшие числа строк таблицы:');
fori: = 1 ton do
writeln (a [ i ])
End.
Нахождение сумм элементов столбцов таблицы.
При обработке таблиц можно осуществлять операции как над строками, так и над столбцами. Для нахождения сумм элементов столбцов можно использовать алгоритм примера Е12. Чтобы лучше понимать работу программы, введем переменную S для вычисления суммы, а затем для каждого столбца запишем полученный результат в массив а, т. е. присвоим его переменной a [j ], где j — текущий номер столбцов таблицы. Пример выполнения программы Е18 — суммирование по столбцам:
| Данная таблица
|
|
|
|
|
|
|
|
|
|
| -3
|
|
| Массив результатов
|
| а[1]
| а[2]
| a[3]
|
|
|
|
|
programE18;
const n = 3;
var b: array [1 .. n, 1 .. n ] of integer; S, i, j: integer; a: array [1 .. n ] of integer;
Begin
writeln('вводите значения элементов таблицы по строкам');
writeln('в конце каждой строки нажимайте <Enter>');
fori: = 1 to n do
Begin
for j: = 1 to n do
read (b [ i, j ]);
Writeln
end;
{построение массива сумм элементов столбцов таблицы}
for j: = 1 to n do
begin
S: = 0;
fori: = 1 to n do
S: = S + b [ i, j];
a [J]: = s
end;
writeln('суммы элементов столбцов таблицы:');
for i: = 1 to n do
write (a [ i ])
End.
