Var b: array [1 .. N, 1 .. N ] of integer; s, I, j: integer; a: array [1 .. N ] of integer;

begin

writeln ('вводите значения элементов таблицы по строкам');

writeln ('в конце каждой строки нажимайте <Enter>');

for i: = 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;

for i: = 1 to n do

S: = S + b [ i, j];

a [J]: = s

end;

writeln ('суммы элементов столбцов таблицы:');

for i: = 1 to n do

write (a [ i ])

end.

4. Перестановка строк таблицы.

В прямоугольной таблице В из n строк и m столбцов требу­ется поменять местами две строки. При решении этой задачи можно воспользоваться алгоритмом обмена значениями двух переменных из программы сортировки (пример Е14). Для это­го достаточно организовать цикл по переменной столбца и, используя промежуточную переменную, менять местами каж­дую пару элементов, стоящих в одном столбце. При заданных номерах строк К и L решение выглядит так: 118

program E19;

const n = 3; m = 4;

Var b: array [ 1 .. N, 1 .. M ] of real; c: real; I, j, k, l: integer;

begin

write ('введите номера меняемых местами строк таблицы');

i, ib,

readln (К, L);

{ввод таблицы}

for i: = 1 to n do

begin

writeln (i, '-я строка таблицы');

for j: = 1 to m do

read (b [ i, j ])

end;

{перестановка строк}

for j: = 1 to m do

begin

c:= b[K,j];

b [ K, j ]: = b [ L, j ];

b [ L, j ]: = с

end;

{печать результатов}

writeln;

writeln ('таблица с переставленными строками: ');

for i: = 1 to n do

begin

for j: = 1 to m do

write (b [ i, j ]);

writeln

end

end.

Задания

1. В квадратной таблице, не содержащей отрицательных элементов, найдите корень квадратный из произведения диагональных элементов.

2. Найдите наибольший элемент квадратной таблицы.

3. Найдите наименьший элемент квадратной таблицы и замените его нулем.

4. В прямоугольной таблице замените все элементы их квадратами.

5. В целочисленной прямоугольной таблице увеличьте на 0,5 все отрицательные элементы.

6. В квадратной таблице найдите наибольший элемент диагонали.

7. Поменяйте местами первую и последнюю строки прямоугольной таблицы.

8. Найдите произведения элементов строк прямоугольной таблицы.

119