1. Вычислить и запомнить количество отрицательных элементов каждого столбца для матрицы A(10, 10). Диапазон [-50; 50].
2. Задана матрица S(9, 8). Задать исходные данные в первые 8 строк и первые 7 столбцов. Вычислить среднее арифметическое значение элементов каждой строки и записать его в 8-ой столбец, а также среднее арифметическое каждого столбца и записать его в 9-ю строку. Диапазон [0; 50].
3. Задана матрица V(7, 8). Упорядочить по возрастанию элементы каждой строки матрицы. Диапазон [-20; 20].
4. Задан массив D(20). Найти максимальный и минимальный элементы массива D и поменять их местами Диапазон [0; 100].
5. Задана матрица А(10, 9). Вычислить и запомнить сумму и число положительных элементов каждого столбца матрицы. Результаты получить в виде двумерного массива. Диапазон [-20; 20].
6. Задана матрица B(10, 10). Вычислить сумму и число элементов матриц, находящихся под главной диагональю и на ней Диапазон [0; 20].
7. Задана матрица P(8, 8). Найти в каждой строке наибольший элемент и поменять его местами с элементами главной диагонали. Диапазон [0; 40].
8. Задана матрица R(9, 9). Найти наибольший и наименьший элементы матрицы и поменять их местами. Диапазон [-30; 30].
9. Задана матрица F(6, 7) Найти в каждой строке матрицы максимальный и минимальный элементы и поместить их на место первого и последнего элемента строки соответственно. Диапазон [-50; 50].
10. Задан массив Z(25). Расположить в массиве R сначала положительные, а затем отрицательные элементы массива Z. Диапазон [-25; 25].
11. Вычислить и запомнить количество отрицательных элементов каждого столбца матрицы А(10,10)). Диапазон [-50; 50].
12. Для матрицы N(10,10) найти для каждой строки число элементов, кратных пяти и наибольший из полученных результатов. Диапазон [0; 60].
13. Задана матрица D(9, 9) Записать на место отрицательных элементов матрицы нули, если эти элементы кратны 3. Диапазон [-50; 50].
14. Задана матрица C(9, 9). Вычислить сумму и число элементов матрицы, находящихся над главной диагональю. Диапазон [0; 20].
15. Задана матрица T(9, 8). Определить строку с наименьшей и наибольшей суммами элементов. Диапазон [0; 70].
16. Задана квадратная матрица A(8, 8). Найти сумму диагональных элементов матрицы, больших заданного числа. Диапазон [0; 150].
17. Даны два вектора X и Y, состоящие из 10 элементов. Вычислить скалярное произведение по формуле X1Y1 + X2Y2 ...X10 Y10. Диапазон [-20; 20].
18. Даны два массива X(5) и Y(8). Составить из них последовательность, упорядоченную по убыванию. Диапазон [-20; 20].
19. Задана матрица A(5,4). Найти сумму элементов матрицы, меньших заданного числа и кратных двум. Диапазон [0; 100].
20. Задан массив X(20). Сформировать два массива Y и Z, содержащие, соответственно положительные и отрицательные элементы массива X. Диапазон [-50; 50].
21. Задана матрица N(5,8). Сформировать из нее одномерный массив элементов матрицы N, кратных трем.
22. Задан массив Z(30). Расположить в массиве R сначала отрицательные, а затем положительные элементы массива Z. Диапазон [-30; 30].
23. Задана квадратная матрица A(9, 9). Найти сумму диагональных элементов матрицы, кратных двум. Диапазон [0; 100].
24. Задана матрица B(9, 9). Вычислить сумму и число элементов матрицы, находящихся над главной диагональю и на ней Диапазон [0; 15].
Тема 11. Строки.
Написать программу обработки строк в соответствии c условием задания. Обработка строк должна быть реализована в подпрограмме. Исходные строки ввести в главной программе. Результат обработки вывести в главной программе.
Пример 1.Ввести с клавиатуры предложение. Сформировать из него массив слов и вывести его в главной программе. Обработку предложения реализовать в подпрограмме.
program pr11;
uses crt;
type masstr = array[1..20] of string;
procedure ms(s1: string; var s2: masstr; var count: byte);
