Информатика 2 сем / Сборник заданий для лабораторных работ по курсу информатика

5.3. Обработка отдельных строк (столбцов) матрицы и работа с диагоналями.

1. Ввести двумерный массив , вывести его. Если значение суммы элементов его главной диагонали превышает сумму элементов побочной, то квадратом полученной разности заменить отрицательные элементы под побочной диагональю.

1. Ввести двумерный массив , вывести его. Найти максимальный по значению элемент массива и увеличить его в два раза. Все остальные элементы массива уменьшить на значение минимума последней строки массива.

2. Ввести двумерный массив , вывести его. Найти максимальный элемент массива. Если максимум лежит на одной из диагоналей (главной или побочной), то увеличить на его удвоенное значение элементы противоположной диагонали.

3. Ввести двумерный массив , вывести его. Найти сумму положительных элементов массива, исключая при этом те элементы, которые кратны трём. Полученной суммой заменить отрицательные элементы последнего столбца.

4. Ввести двумерный массив , вывести его. Возвести в квадрат те элементы, модуль значения которых принадлежит интервалу . Определить сколько таковых элементов оказалось в массиве.

5. Ввести двумерный массив , вывести его. Если сумма элементов над главной диагональю окажется больше чем сумма элементов под ней, то умножить на два максимальный элемент среди элементов на побочной диагонали, иначе – минимальный элемент среди этих элементов (побочной диагонали) возвести в квадрат.

6. Ввести двумерный массив , вывести его. Преобразовать исходный массив путем сложения его элементов с произведением элементов того столбца, который содержит минимальный элемент всего массива.

7. Ввести двумерный массив , вывести его. Если в массиве больше положительных элементов, то поменять максимальный элемент среди элементов над главной диагональю с максимальным элементом под ней, иначе возвести в квадрат все отрицательные.

8. Ввести двумерный массив , вывести его. Найти среднее арифметическое диагональных элементов (главной и побочной). Все элементы большие найденного значения, расположенные над побочной диагональю возвести в квадрат, а расположенные под ней увеличить на минимум всего массива.

9. Ввести двумерный массив , вывести его. Поменять местами строку, содержащую максимальный элемент со строкой, содержащий минимальный элемент. Если максимум и минимум в одной строке, то заменить эту строку единицами.

10. Ввести целочисленный двумерный массив , вывести его. Найти сумму его чётных элементов, исключая максимальный и минимальный (всего массива). Найденной суммой заменить угловые элементы массива.

11. Ввести целочисленный двумерный массив , вывести его. Заменить единицами сроку и столбец, содержащие максимальный среди тех элементов, значения которых кратны двум.

12. Ввести двумерный массив , вывести его. Найти сумму положительных элементов расположенных в части массива одновременно как над главной, так и над побочной диагональю. Найденной суммой заменить элементы, расположенные в части массива одновременно под главной и побочной диагоналями.

13. Ввести целочисленный двумерный массив , вывести его. Найти суммы элементов первой и последней строк матрицы. Далее увеличить на значение максимума всей матрицы ту строку (первую или последнюю), чья сумма окажется меньше.

14. Ввести целочисленный двумерный массив , вывести его. Найти минимальный из положительных элементов матрицы и этим значением заменить все нулевые элементы матрицы, если они есть, а если их нет, то заменить найденным минимумом последнюю строку матрицы. Если положительных нет, то вывести соответствующее сообщение.

15. Ввести целочисленный двумерный массив , вывести его. Найти максимальный и минимальный элементы массива, среди тех, значения которых кратны двум. Найденные элементы удвоить, а все остальные утроить.

16. Ввести целочисленный двумерный массив , вывести его. Найти сумму положительных угловых элементов. Найденной суммой заменить строку содержащую минимальный элемент и столбец, содержащий максимальный элемент.

17. Ввести двумерный массив , вывести его. Возвести в квадрат все строки расположенные между строкой содержащей максимум матрицы и строкой, содержащей минимум этой матрицы.

18. Ввести целочисленный двумерный массив , вывести его. Найти – количество чётных элементов на главной диагонали. Далее найти максимум в -й строке и заменить его суммой нечётных элементов главной диагонали.

19. Ввести целочисленный двумерный массив , вывести его. Если максимум и минимум массива одновременно являются чётными, то разделить их на два, иначе поменять местами первый и предпоследний столбец массива.

20. Ввести целочисленный двумерный массив , вывести его. Определить – сколько в массиве элементов кратных числу и –сколько кратных , где и – номера строк, содержащих, соответственно, максимальный и минимальный элементы матрицы. Значением заменить отрицательные, а значением – неотрицательные элементы первой строки.

21. Ввести двумерный массив , вывести его. Все столбцы расположенные правее от столбца, содержащего максимальный элемент матрицы увеличить на минимальный элемент матрицы.

22. Ввести целочисленный двумерный массив , вывести его. Найти произведение тех элементов, которые нечётны и положительны. Если среди этих элементов встретится максимальный элемент всей матрицы, то не учитывать его в произведении. Найденным произведением заменить предпоследнюю строку матрицы.

23. Ввести целочисленный двумерный массив , вывести его. Найти минимальный элемент массива среди тех, значения которых кратны трём. Заменить все строки предшествующие строке содержащей найденный минимум удвоенным произведением максимума и минимума, ранее найденных среди элементов всего массива.

24. Ввести целочисленный двумерный массив , вывести его. Определить – сколько нечётных элементов содержится на диагоналях массива. Далее выяснить координаты максимума среди элементов, расположенных под побочной диагональю и уменьшить этот элемент на .

25. Ввести двумерный массив , вывести его. Найти координаты максимума всего массива. Далее найти минимум среди тех элементов, которые находятся в столбцах левее столбца содержащего найденный максимум. Найденным минимумом заменить найденный максимум.

26. Ввести двумерный массив , вывести его. Найти – количество элементов, чей модуль превышает величину . Если превышает количество (количество отрицательных элементов массива), то заменить отрицательные элементы величиной , в противном случае поменять местами максимум и минимум.

27. Ввести двумерный массив , вывести его. Определить в какой строке больше положительных элементов: в той которая содержит максимум, или в той, которая содержит минимум. В строке, где положительных элементов больше каждый из положительных элементов возвести в квадрат.

28. Ввести двумерный массив , вывести его. Найти сумму угловых элементов матрицы и сравнить её с максимумом всей матрицы. Если сумма окажется больше, то угловые элементы обнулить, если равна, то угловые элементы заменить максимумом, а если меньше, то последний столбец матрицы утроить.

29. Ввести двумерный массив , вывести его. Найти максимум среди элементов над главной диагональю и поменять его с максимумом на побочной диагонали.

5.4. Сложная обработка элементов матрицы.

1. Ввести матрицу , вывести ее. Найти сумму элементов в той строке, где произведение элементов максимально.

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

3. Ввести матрицу , вывести ее. Максимум каждого столбца матрицы заменить значением суммы кратных трем элементов всей матрицы.

4. Ввести матрицу , вывести ее. В матрице нечетные столбцы отсортировать по убыванию, а четные по возрастанию.

5. Ввести матрицу , вывести ее. Выяснить сколько и какие строки в матрице не упорядочены по возрастанию.

6. Ввести матрицу , вывести ее. В матрице для каждого столбца, чьи элементы не упорядочены по убыванию вместо последнего элемента столбца вписать "-1".

7. Ввести матрицу , вывести ее. В матрице для каждой строки дважды произвести циклический сдвиг элементов влево.

8. Ввести матрицу , вывести ее. Отрицательные элементы каждой строки заменить суммой максимума и минимума этой строки.

9. Ввести матрицу , вывести ее. В каждой строке матрицы найти k – количество положительных элементов. В строках все элементы после k-го увеличить на сумму положительных элементов этой строки.

10. Ввести матрицу , вывести ее. Возвести в квадрат элементы той строки, где максимальный элемент встречается раньше.

11. Ввести матрицу , вывести ее. В каждом столбце матрицы поменять местами второй отрицательный и минимальный элемент столбца. Если в столбце нет двух отрицательных элементов, то оставить его без изменения.

12. Ввести матрицу , вывести ее. В каждой строке матрицы поменять местами минимальный среди четных элементов и первый элемент строки. Если нет четных элементов в строке, то оставить ее без изменения.

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

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

15. Ввести матрицу , вывести ее. В каждой строке найти сумму элементов расположенных после первого нулевого элемента. Значения найденных сумм поместить в одномерный массив .

16. Ввести матрицу , вывести ее. В каждой строке найти произведение элементов предшествующих минимальному элементу строки. Произведения переписать в одномерный массив .

17. Ввести матрицу , вывести ее. В каждой строке максимум среди нечетных элементов умножить на номер строки в которой он встречается. Если в строке нет нечетных элементов, то оставить ее без изменения.

18. Ввести матрицу , вывести ее. В каждой строке матрицы элементы, расположенные до максимального переставить в обратном порядке.

19. Ввести матрицу , вывести ее. В каждом столбце матрицы найти k – количество элементов расположенных после минимального. Первые k элементов столбца переставить в обратном порядке.

20. Ввести матрицу , вывести ее. В каждой строке матрицы найти – количество отрицательных элементов. Переставить в обратном порядке последние () элементов матрицы.

21. Ввести матрицу , вывести ее. В матрице упорядочить по возрастанию те строки, где сумма элементов четная.

22. Ввести матрицу , вывести ее. В матрице упорядочить по убыванию те столбцы, где количество четных элементов больше либо равно числу нечетных.

23. Ввести квадратную матрицу , вывести ее. На главную диагональ записать "", если сумма положительных элементов в соответствующей строке больше максимума всей матрицы и "" в противном случае.

24. Ввести квадратную матрицу , вывести ее. В матрице определить k – количество четных элементов на побочной диагонали. Элементы первых k строк матрицы переставить в обратном порядке.

25. Ввести квадратную матрицу , вывести ее. Определить k– положение максимального элемента на главной диагонали. В каждом из последних k столбцов матрицы заменить отрицательные элементы суммой этих элементов (сумма ищется для каждого столбца).

26. Ввести матрицу , вывести ее. В матрице для каждого столбца определить количество четных элементов. Результат поместить в одномерный массив , записывая для каждого столбца "1" если число четных в нем больше, "-1", если число нечетных больше, "0", если четных и нечетных элементов в столбце поровну.

27. Ввести матрицу , вывести ее. Для каждой строки матрицы определить максимум среди соседних элементов этой строки. Результат записать в одномерный массив .

28. Ввести матрицу , вывести ее. В каждой строке матрицы определить, сколько в ней положительных, сколько отрицательных и сколько нулевых элементов. Если число положительных и отрицательных совпадает, то найти сумму элементов этой строки.

29. Ввести матрицу , вывести ее. Минимальный элемент каждой строки увеличить на сумму элементов, расположенных до этого минимума.

6. Тема: подпрограммы.

6.1. Вычисления с использованием подпрограмм.

Дважды вычислить значение выражения, первый раз используя процедуру, а второй – функцию.

1. ;

2. ;

3. ;

4. ;

5. ;

6. ;

7. ;

8. ;

9. ;

10. ;

11. ;

12. 

13. ;

14. ;

15. ;

16. ;

17. ;

18. ;

19. ;

20. ;

21. ;

    1. ;

22. ;

23. ;

24. ;

25. ;

26. ;

27. ;

28. ;

29. ;

6.2. Обработка массивов с использованием подпрограмм.

1. Ввести одномерные массивы , и . Заменить в каждом из них максимальный элемент средним арифметическим положительных элементов (если оно существует) соответствующего массива. Вывести массивы до преобразования и после. (При решении реализовать процедуры ввода и вывода массивов Vvod1m(A,N,Name) и Vivod1m(A,N,Name), а также функции IndMax(A,N):byte – поиск индекса максимума и SrAPol(A,N):real – поиск среднего арифметического положительных элементов (равно нулю, если положительных нет))

2. Ввести матрицы и . В матрицах найти максимумы, которые вывести. Преобразовать каждую матрицу, уменьшив её положительные элементы на значение максимума другой матрицы. Исходные и преобразованные матрицы вывести на экран. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name), Vivod2m(A,N,M,Name) и Zamena(A,N,M,Vichet) – уменьшение положительных элементов матрицы на величину Vichet, а также функцию Maximum(A,N,M):<тип массива> – поиск максимума)

3. Ввести одномерные массивы , и . Определить в каждом из них среднее арифметическое отрицательных элементов. Если среднее арифметическое отрицательных существует, то поместить его в чётные ячейки соответствующего массива. Вывести массивы до преобразования и после. (При решении реализовать процедуры ввода и вывода массивов Vvod1m(A,N,Name) и Vivod1m(A,N,Name), функцию SrArOtr(A,N):real – поиск среднего арифметического отрицательных, которая равна нулю если отрицательных нет и процедуру ZamenaChet(A,N,Chislo) – замена чётных ячеек значением Chislo)

4. Ввести квадратные матрицы , и . Найти минимальное из 3-х чисел: , , , каждое из которых является следом соответствующей матрицы (суммой диагональных элементов). В матрицах поменять местами первую строку и побочную диагональ. Матрицы вывести до и после преобразования. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,Name), Vivod2m(A,N,Name), а также функции Trace(A,N):<тип массива> – поиск следа и Min(p, q):<тип массива> – минимум среди двух чисел; Zamena(A,N) – замена первой строки и побочной диагонали в матрице)

5. Ввести двумерные массивы и . Найти наибольший элемент в каждом из массивов. В каждой матрице записать в строку, содержащую этот элемент нули, исключая сам максимальный элемент. Вывести на экран матрицы до преобразования и после. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name), Vivod2m(A,N,M,Name) и ZamenaStr(A,Iz,M,Jz) – замена нулями элементов строки Iz, кроме элемента расположенного в столбце Jz; а также процедуру Maximum(A,N,M,Imax,Jmax) – поиск координат максимума)

6. Ввести одномерные массивы , и . Разделить каждый из элементов на максимальный элемент среди отрицательных элементов соответствующего массива. Массивы вывести на экран до и после преобразования (или сообщение о невозможности преобразования). (При решении реализовать процедуры ввода и вывода массивов: Vvod1m(A,N,Name) и Vivod1m(A,N,Name); функцию MaxOtr(A,N):<тип массива> – максимум среди отрицательных, которая равна нулю если отрицательных нет; и процедуру Delenie(A,N,Chislo) – деление элементов массива на Chislo)

7. Ввести двумерные массивы , . Заменить в каждом массиве элементы главной диагонали на произведение положительных элементов противоположной матрицы. Матрицы вывести на экран до и после преобразования (если преобразование невозможно, то вывести соответствующее сообщение). (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,Name), Vivod2m(A,N,Name), а также функцию PrPol(A,N):<тип массива> – поиск произведения положительных (равна нулю при их отсутствии) и процедуру ZamenaDiag(A,N,Chislo) – замена диагонали значением Chislo)

8. Ввести двумерные массивы , . Переписать элементы строки матрицы, содержащей минимальный элемент, соответственно, в одномерные массивы и . Обе матрицы и массивы вывести на экран. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name), Vivod2m(A,N,M,Name), Vivod1m(A,N,Name), а также функцию IndMin(A,N,M):byte – индекс строки, содержащей минимум и процедуру FormFromStr(A,B,M,Str) – перепись из A в B строки Str)

9. Ввести одномерные массивы , . Определить новый вектор-массив как: , где знак «*» означает, что все компоненты этого вектора получены из исходного путём его деления на максимальную компоненту (производится нормировка). (При решении реализовать процедуры ввода и вывода массивов: Vvod1m(A,N,Name) и Vivod1m(A,N,Name); функцию MaxOtr(A,N):<тип массива> – максимум массива; процедуру Delenie(A,N,Chislo) – деление элементов массива на значение Chislo; процедуру Form(A1,A2,A3,N) – формирование третьего массива из пары исходных)

10. Ввести двумерные массивы , . Если максимальный элемент массива больше максимального элемента массива , то заменить им – все отрицательные элементы обоих матриц. В противном случае – все положительные элементы. Массивы до и после преобразования вывести на экран. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name), Vivod2m(A,N,M,Name), а также функцию Maximum(A,N,M):<тип массива> – максимум массива и процедуры ZamenaPol(A,N,M,Chislo), ZamenaOtr(A,N,M,Chislo) – замена, соответственно, положительных и отрицательных элементов значением Chislo)

11. Ввести двумерные массивы , . Переписать элементы столбцов обоих матриц, содержащих максимальные элементы в своих матрицах в одномерный массив . Обе матрицы и массив вывести на экран. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name), Vivod2m(A,N,M,Name), Vivod1m(A,N,Name), а также функцию IndMin(A,N,M):byte – индекс столбца, содержащего минимум и процедуру Form(A1,A2,B,N1,N2,Stlb1,Str2) – перепись из A1, A2 в одномерный массив B столбцов Stlb1, Stlb2)

12. Ввести двумерные массивы , , . Заменить в них элементы побочной диагонали на произведение положительных и кратных 3 элементов соответствующей матрицы. Исходные и преобразованные матрицы вывести на экран (или сообщение о невозможности преобразования). (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,Name), Vivod2m(A,N,Name); функцию PrKr3Pol(A,N):integer – поиск произведения положительных и кратных трём (если произведение не существует, то функция равна нулю); процедуру ZamenaDiag(A,N,Chislo) – замена побочной диагонали значением Chislo)

13. Ввести двумерные массивы , . В этих массивах найти минимальные элементы. Преобразовать каждую матрицу, увеличив её отрицательные элементы на значение минимального по модулю элемента другой матрицы. Исходные и преобразованные матрицы вывести на экран. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name), Vivod2m(A,N,M,Name); а также функцию MinimumMod(A,N,M):<тип матрицы> – поиск минимального по модулю элемента; процедуру ZamenaOtr(A,N,M,Chislo) – увеличение элементов матрицы на значение Chislo)

14. Ввести двумерные массивы , , . В каждом массиве найти среднее арифметическое положительных элементов. Преобразовать каждый из массивов по правилу: деление элементов 1-го столбца на сумму положительных элементов 1-ой строки, элементы, 2-го столбца на сумму положительных элементов 2-ой строки и т.д. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,Name), Vivod2m(A,N,Name); а также процедуру Modification(A,N) – деление столбцов на суммы строк; и функцию SrAPol(A,N):real – поиск среднего арифметического положительных элементов (равно нулю, если положительных нет))

15. Ввести двумерные массивы , . Получить массивы , , элементы которых вычисляются по формулам , . Вывести все вышеупомянутые массивы вместе со значением соответствующего максимума среди элементов главной диагонали. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,Name), Vivod2m(A,N,Name); а также процедуру Summ(A,Ax,Ay,N) – суммирование матриц Ax, Ay с сохранением результата в A; и функцию MaxDiag(A,N):<тип массива> – максимум среди элементов главной диагонали)

16. Ввести двумерные массивы , , . Получить массив по формуле и по формуле . Все вышеупомянутые массивы вывести. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name), Vivod2m(A,N,M,Name); а также процедуру Sozd(A,Ax,Ay,Az,N,M) – создание матрицы A, на основе Ax, Ay, Az; и функцию Max(p,q):<тип массива> – максимум среди пары элементов)

17. Ввести двумерные массивы , , . Для этих матриц найти – минимум среди минимальных элементов и – минимум среди максимальных элементов, которым заменить нулевые элементы в каждом массиве. Вывести массивы до и после замены. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name), Vivod2m(A,N,M,Name); а также функции Min2mass(A,N,M):<тип массива> и Max2mass(A,N,M):<тип массива> – поиск минимума и максимума в матрицах; и функцию Min(p,q):<тип массива> – минимум среди пары элементов; ZamenaZero(A,N,M,Chislo) – замена нулевых элементов значением Chislo)

18. Ввести квадратные двумерные массивы , и . Вывести эти матрицы. Найти , где – произведение диагональных элементов (главной и побочной) и , где – максимумы вышеупомянутых матриц. Значением заменить нулевые элементы в каждой из матриц. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,Name), Vivod2m(A,N,Name); а также функции SumDiag(A,N):<тип массива> – сумма диагональных элементов и Maximum(A,N):<тип массива> – поиск максимума в матрице; а также процедуру замены нулевых элементов значением Chislo: ZamenaZero(A,N,M,Chislo))

19. Ввести квадратные двумерные массивы и . Вывести эти матрицы. В матрицах вычислить и отпечатать средние арифметические элементов расположенных под главной диагональю, которыми заменить элементы побочной диагонали противоположной матрицы. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,Name), Vivod2m(A,N,Name); а также функция SrArDiag(A,N):real – среднее арифметическое поддиагональных элементов; и ZamenaPoboch(A,N,Chislo) – замена побочных элементов на значение Chislo)

20. Для заданных четырёх матриц , , и найти и напечатать длины векторов и где – суммы положительных элементов соответствующих матриц. Следует напомнить, что длина вектора вычисляется как квадратный корень из суммы квадратов координат. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,Name), Vivod2m(A,N,Name); а также функции SummPol(A,N):<тип массива> – сумма положительных элементов; и Dlina(p,q,r):real – длина вектора с координатами p,q,r)

21. Ввести три матрицы , , . Вычислить и отпечатать значение функции , если вводится с клавиатуры, – следы матриц , , (следом матрицы называется сумма элементов главной диагонали). Значением заменить нулевые элементы выше главной диагонали в каждой из матриц. Матрицы вывести до и после преобразования. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,Name), Vivod2m(A,N,Name); а также функцию Sled(A,N):<тип массива> – след; и процедуру Zamena(A,N,Chislo) – замена нулевых элементов выше главной диагонали на Chislo)

22. Ввести три массива , , . Найти и вывести на экран – минимальное из трёх чисел: (количества положительных чисел для каждого из массивов). Значением заменить нулевые элементы в каждом из массивов. Массивы вывести до и после преобразования. (При решении реализовать процедуры ввода и вывода массивов: Vvod1m(A,N,Name), Vivod1m(A,N,Name); а также функцию KolPol(A,N):byte – количество положительных; и процедуру Zamena(A,N,Chislo) – замена нулевых элементов значением Chislo)

23. Ввести одномерные массивы целых чисел , , . Определить в каждом массиве среднее арифметическое положительных элементов кратных 5 или 3, и записать его целую часть (встроенная функция целой части: trunc(x))) на место 1-го, последнего и предпоследнего элемента соответствующего массива (при условии существования среднего арифметического). Вывести массивы до преобразования и после (при невозможности вычислить среднее арифметическое, вывести соответствующее сообщение). (При решении реализовать процедуры ввода и вывода массивов: Vvod1m(A,N,Name), Vivod1m(A,N,Name); а также функцию SrAkr53(A,N):real – среднее арифметическое положительных кратных пяти или трём (функция равна «», если оно не существует); и процедуру Zamena(A,N,Chislo) – замена первого, последнего и предпоследнего значением Chislo)

24. Ввести одномерные массивы , , . Найти и отпечатать максимальные по модулю отрицательные элементы в каждом из массивов. Найденными значениями заменить положительные элементы соответствующих массивов. (При решении реализовать процедуры ввода и вывода массивов: Vvod1m(A,N,Name), Vivod1m(A,N,Name); а также функцию MaxModOtr(A,N):<тип массива> – максимальное по модулю отрицательное (функция равна нулю при отсутствии отрицательных); и процедуру Zamena(A,N,Chislo) – замена положительных элементов значением Chislo)

25. Ввести квадратные матрицы , . Обменять главную и побочные диагонали у той матрицы, у которой значение суммы её элементов окажется больше. Матрицы вывести до и после преобразования. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,Name), Vivod2m(A,N,Name); а также функцию Summa(A,N):<тип массива> – сумма элементов; и процедуру Obmen(A,N) – обмен диагоналей в матрице)

26. Ввести квадратные матрицы , . Заменить первой строкой одной матрицы первую строку другой матрицы. Матрица, строка которой будет дублирована в другой матрице, определяется минимальным значением (у какой матрицы минимальный элемент меньше – та и является донором, т.е. источником). Матрицы вывести до и после преобразования вместе со значением их минимумов. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name), Vivod2m(A,N,M,Name); а также функцию Minimum(A,N,M):<тип массива> – минимум матрицы; и процедуру Zamena(A1,A2,M,Str) – замена строки номер Str в матрице A1 строкой Str в матрице A2)

27. Ввести квадратные матрицы , . Матрицу у которой над побочной диагональю окажется больше чётных элементов транспонировать. Матрицы вывести до и после преобразования. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,Name), Vivod2m(A,N,Name); а также функцию ChetNadPob(A,N):byte – количество чётных над побочной диагональю; и процедуру Transp(A,N) – транспонирование матрицы)

28. Ввести матрицы , . Матрицу у которой сумма элементов последнего столбца окажется меньше преобразовать. Преобразование заключается в замене отрицательных элементов каждой строки суммой положительных элементов этой строки. Матрицы вывести до и после преобразования. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name), Vivod2m(A,N,M,Name); а также функцию SumPoslStlb(A,N):<тип матрицы> – сумма элементов последнего столбца; и процедуру Modif(A,N,M) – замена элементов в строках)

29. Ввести матрицы , . Сформировать из матриц пару одномерных массивов и , в которые поместить положительные элементы соответствующих матриц. В одномерных массивах найти количество четных элементов и вывести их вместе с самими массивами. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name), Vivod2m(A,N,M,Name), Vivod1m(A,N,Name); процедуру FormPol(A,Na,Ma,B,Nb) – формирование из положительных элементов двумерного массива A одномерного массива B, а также функцию KolChet(A,N):byte – количество чётных элементов в одномерном массиве)

30. Ввести матрицы , . Сформировать из матриц пару одномерных массивов и , в которые поместить элементы, превышающие среднее арифметическое соответствующих матриц. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name), Vivod2m(A,N,M,Name), Vivod1m(A,N,Name); процедуру Form(A,Na,Ma,B,Nb,Chislo) – формирование из элементов двумерного массива A, превышающих значение Chislo, одномерного массива B; функцию SrA(A,N,M):real – среднее арифметическое элементов двумерного массива)