Продолжение таблицы 8

18Найти средние геометрические нечетных элементов каждой строки матрицы, результат записать в одномерный массив Найти сумму четных положительных элементов главной диагонали

19матрицы, результат умножить на произведение нечетных элементов побочной диагонали Найти произведение четных положительных элементов главной диаго-

20нали матрицы, к результату прибавить сумму нечетных элементов побочной диагонали

21Найти минимальные четные значения каждого столбца матрицы; результат записать в одномерный массив

22Найти максимальные нечетные значения каждого столбца матрицы; результат записать в одномерный массив

23Найти минимальные четные значения каждой строки матрицы; результат записать в одномерный массив

24Найти максимальные нечетные значения каждой строки матрицы; результат записать в одномерный массив

25Найти частное от деления максимального элемента главной диагонали матрицы на минимальный элемент побочной диагонали Найти сумму нечетных положительных элементов главной диагонали

26матрицы, к результату прибавить произведение нечетных элементов побочной диагонали Найти произведение четных положительных элементов главной диаго-

27нали матрицы, результат умножить на сумму четных элементов побочной диагонали

Примеры выполнения задания

1 Найти максимальный положительный элемент матрицы А(5,4), номера строки и столбца, где он находится.

Program lab5_1; Uses Crt;

Type matr = array [1..5,1..4] of integer; Var a:matr; i,j,imax,jmax,amax:integer; Begin

clrscr;

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

for i:=1 to 5 do for j:=1 to 4 do read(a[i,j]); writeln('Исходная матрица:');

for i:=1 to 5 do

18

begin for j:=1 to 4 do write(a[i,j]:3); writeln end; imax:=1; jmax:=1; amax:=a[1,1];

for i:=1 to 5 do for j:=1 to 4 do

if (a[i,j] > amax) and (a[i,j] > 0) then

begin amax := a[i,j]; imax := i; jmax := j end; if (imax = 1) and (jmax = 1) and (a[1,1] < 0) then

writeln('Положительных элементов нет.') else begin

writeln('Максимальный элемент матрицы = ',amax); writeln('Он расплоложен на пересечении ',imax,

' строки и ',jmax,' столбца.')

end

End.

2 Найти максимальные элементы каждой строки матрицы A(5,5). Результат записать в массив B.

Program lab5_2; Uses Crt;

Type matr = array [1..5,1..5] of integer; mas = array [1..5] of integer;

Var a:matr; b:mas; i,j,jmax,amax:integer; Begin

clrscr;

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

for i:=1 to 5 do for j:=1 to 5 do read(a[i,j]); writeln('Исходная матрица:');

for i:=1 to 5 do begin

for j:=1 to 5 do write(a[i,j]:3); writeln

end;

for i:=1 to 5 do begin

jmax:=1; amax:=a[i,1];

for j:=2 to 4 do if a[i,j] > amax then begin

amax := a[i,j]; jmax := j

end;

b[i]:=amax

end; writeln('Полученный массив:'); for i:=1 to 5 do write(b[i]:3); writeln

End.

19