- •3 Если в прямоугольной матрице все суммы элементов строк
- •5 Определить столбец прямоугольной матрицы с максимальной
- •7 Если к-й столбец прямоугольной матрицы имеет минимальную сумму элементов, определить сумму элементов столбцов до к-ого, иначе - сумму элементов столбцов после к-ого.
- •8 Если целочисленная квадратная матрица симметрична относително
- •9. Переставить в каждом столбце прямоугольной матрицы
- •13 Дана квадратная матрица. Увеличить все элементы строки с минимальной суммой элементов на среднее арифметическое элементов матрицы, лежащих выше главной диагонали.
- •14 Изменить заданную прямоугольную матрицу так, чтобы
- •20 В заданной прямоугольной матрице поставить на первое место
- •21(1) Для массива с из n элементов составить процедуру, которая находит m наименьших значений с1,с2…сn и т.Д.
7 Если к-й столбец прямоугольной матрицы имеет минимальную сумму элементов, определить сумму элементов столбцов до к-ого, иначе - сумму элементов столбцов после к-ого.
Unit Z433_7;
interface
Const n = 3, m = 4;
Type matr = array[1..n,1..m] of real;
mas = array[1..m] of real;
procedure p1(A:matr; Var S:mas); {записывает в массив S суммы элементов столбцов}
procedure p2(S:mas; Var nom:integer); {l - минимальный элемент массива S}
procedure p3(A:matr; l1,l2:integer; Var sum:real);
implementation
procedure p1;
Var i,j:integer;
Begin for j := 1 to m do
Begin S[j] := 0;
for i := 1 to n do
S[j] := S[j] + A[i,j];
end;
end; {p1}
procedure p2;
Var j:integer;
Smin:real;
Begin Smin := S[1];
nom := 1;
for j := 1 to m do
if S[j] < Smin then
Begin Smin := S[j];
nom := j;
end;
end; {p2}
procedure p3;
Var i,j:integer;
Begin sum := 0;
for i := 1 to n do
for j := l[1] to 1[2] do
sum := sum + A[i,j];
end; {p3}
end.
program z433_7;
uses 433_7;
const n = 3, m = 4;
Type matr = array[1..n,1..m] of real;
mas = array[1..m] of real;
Var A:matr; S:mas; i,j,k,nom:integer; sum1,sum2:real;
Begin for i := 1 to n do
for j := 1 to m do readln(A[i,j]);
readln(k);
p1(A,S); p2(S,nom);
if (nom = k) then
Begin p3(A,1,k,sum1);
Writeln (sum1)
end else
Begin p3(A,k+1,m,sum2);
writeln(sum2);
end;
end.
8 Если целочисленная квадратная матрица симметрична относително
главной диагонали, обнулить все элементы, лежащие выше главной
диагонали, и определить сумму элементов, лежащих ниже
главной диагонали.
program z433_8;
uses Z433_8;
Var A:matr;
i,j,s:integer;
BEGIN
for i := 1 to n do
for j := 1 to n do
readln(A[i,j]);
if Sim(A) then
Begin
NulSum(A,s);
write('Сумма элементов, лежащих ниже главной диагонали: ');
writeln(s);
end
else writeln('Матрица не симметрична относительно главной диагонали.');
for i := 1 to n do
Begin
for j := 1 to n do
write(A[i,j],' ');
writeln;
end;
END.
Unit Z433_8;
interface
Const n = 3;
Type matr = array[1..n,1..n] of integer;
function Sim(A:matr):boolean;
{Возвращает true, если матрица симметрична относительно главной диагонали}
procedure NulSum(Var A:matr; Var s:integer);
{Обнуляет элементы, лежащие выше главной диагонали, и подсчитывает их сумму}
implementation
function Sim(A:matr):boolean;
Var i,j,k:integer;
b:boolean;
Begin
k := 0;
b := true;
for i := 1 to n do
for j := 1 to n do
if (j < i) and (A[i,j] <> A[j,i]) then k := k + 1;
if k <> 0 then b := false;
Sim := b;
end; {Sim}
procedure NulSum(Var A:matr; Var s:integer);
Var i,j:integer;
Begin
s := 0;
for i := 1 to n do
for j := 1 to n do
if j > i then
Begin
s := s + A[i,j];
A[i,j] := 0;
end;
end; {NulSum}
END.