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). Построить вектор по следующему правилу: .