П Р О Г Р А М М А

program mag_max;

type x=array[1..3,1..4] of integer;

y=array[1..4] of integer;

var i,j:integer;

a:x; b:y;

begin

writeln ('Введите матрицу А');

for i:=1 to 3 do begin

for j:=1 to 4 do begin

read(a[i,j]);

write (' ')

end;

writeln

end;

writeln ('Массив В');

for j:=1 to 4 do

begin

b[j]:=a[1,j];

for i:=2 to 3 do

if b[j]<a[i,j]

then b[j]:=a[i,j];

write(b[j]:4:1)

end

end.

Упражнения:

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

2. В матрице С(9,5) найти среднее арифметическое всех элементов, удовлетворяющих условию .

3. В матрице А(7,9) определить max и min элементы и переставить их местами.

4. В матрице А(8,9) определить среднее арифметическое положительных и отрицательных элементов. Подсчитать количество нулевых элементов.

5. Вычислить , где - количество нулевых элементов в четных строках матрицы В(10,10).

6. В матрице А(6,6) все поддиагональные элементы заменить нулями.

7. В матрице D(10,15) найти сумму элементов каждой четной строки и произведение элементов каждой нечетной строки. Из полученных сумм и произведений образовать массив .

8. В матрице X(12,4) в каждой строке найти сумму элементов, лежащих в интервале . Образовать из этих сумм пятый столбец исходной матрицы.

9. Задана матрица X(7,11). Образовать матрицу Y(7,11) путем деления всех элементов исходной матрицы на ее элемент, наибольший по абсолютной величине.

10. В матрице А(10,10) найти сумму элементов, расположенных в строках с отрицательным элементом на главной диагонали.

11. Задана матрица X(6,6). Вычислить сумму элементов, расположенных на линиях, параллельных главной диагонали и находящихся выше нее.

12. В матрице X(8,8) найти среднее арифметическое элементов, расположенных под главной диагональю; на главной диагонали; над главной диагональю.

13. Задана матрица А(8,12). Построить вектор по следующему правилу: .