| П Р О Г Р А М М А
program umnog;
type mat=array[1..9,1..9] of integer;
var i,j:integer;
p:mat;
begin
for i:=1 to 9 do
begin
for j:=1 to 9 do
begin
p[i,j]:=i*j;
write (p[i,j]:3)
end;
writeln;
end
end.
ПРИМЕР 2: Из матрицы А[3,4] получить вектор В, элементами которого являются наибольшие элементы столбцов матрицы.
П Р О Г Р А М М А
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]
then b[j]:=a[i,j];
write(b[j]:4:1)
end
end.
Упражнения:
Для матрицы В(10,8) на место последнего элемента каждой строки записать сумму предыдущих ему элементов в этой строке.
В матрице С(9,5) найти среднее арифметическое всех элементов, удовлетворяющих условию .
В матрице А(7,9) определить max и min элементы и переставить их местами.
В матрице А(8,9) определить среднее арифметическое положительных и отрицательных элементов. Подсчитать количество нулевых элементов.
Вычислить , где - количество нулевых элементов в четных строках матрицы В(10,10).
В матрице А(6,6) все поддиагональные элементы заменить нулями.
В матрице D(10,15) найти сумму элементов каждой четной строки и произведение элементов каждой нечетной строки. Из полученных сумм и произведений образовать массив .
В матрице X(12,4) в каждой строке найти сумму элементов, лежащих в интервале . Образовать из этих сумм пятый столбец исходной матрицы.
Задана матрица X(7,11). Образовать матрицу Y(7,11) путем деления всех элементов исходной матрицы на ее элемент, наибольший по абсолютной величине.
В матрице А(10,10) найти сумму элементов, расположенных в строках с отрицательным элементом на главной диагонали.
Задана матрица X(6,6). Вычислить сумму элементов, расположенных на линиях, параллельных главной диагонали и находящихся выше нее.
В матрице X(8,8) найти среднее арифметическое элементов, расположенных под главной диагональю; на главной диагонали; над главной диагональю.
Задана матрица А(8,12). Построить вектор по следующему правилу: .
Достарыңызбен бөлісу: |
