Примеры:
1. Вычислить сумму элементов строк с четными индексами матрицы 6 ´ 8.
........
2........
........
4........
........
6........
1 способ.
s:=0;
for i:=1 to 3 do
for j:=1 to 8 do s:=s+a[i*2,j];
2 способ.
s:=0;
i:=2;
repeat
for j:=1 to 8 do s:=s+a[i,j];
i:=i+2;
until i>6;
2. Вычислить сумму элементов каждой строки матрицы 6 ´ 8.
1 способ. Сумма элементов каждой строки запоминается в соответствующем элементе дополнительного одномерного массива S.
........ ® s[1]
........ ® s[2]
........ ® s[3]
........ ® s[4]
........ ® s[5]
........ ® s[6]
program prim;
var a:array[1..6,1..8] of real;
s:array[1..6] of real;
i,j:integer;
begin
for i:=1 to 6 do
for j:=1 to 8 do read(a[i,j]);
for i:=1 to 6 do begin
s[i]:=0;
for j:=1 to 8 do s[i]:=s[i]+a[i,j];
end;
for i:=1 to 6 do writeln('сумма ', i, '-й строки = ', s[i]);
end.
2 способ. Сумму каждой строки можно не накапливать, а сразу выводить на печать.
........ ® печать
........ ® печать
........ ® печать
........ ® печать
........ ® печать
........ ® печать
program prim;
var a:array[1..6,1..8] of real;
s: real;
i,j:integer;
begin
for i:=1 to 6 do
for j:=1 to 8 do read(a[i,j]);
for i:=1 to 6 do begin
s:=0;
for j:=1 to 8 do s:=s+a[i,j];
writeln('сумма ', i, '-й строки= ', s);
end;
end.
ЗАДАЧИ
1. Вычислить
|
|
2. Вычислить
3. Вычислить
4. Вычислить
5. Найти максимальный элемент матрицы 6´5.
6. Определить индексы максимального элемента матрицы 6´5.
7. Вычислить сумму положительных элементов 3-го столбца матрицы 6´5.
8. Определить количество отрицательных элементов 3-й строки матрицы 6´5.
9. Определить,есть ли на главной диагонали матрицы 6´6 нулевые элементы.
10. Заменить все отрицательные элементы побочной диагонали матрицы 6´6 нулями.
11. Вычислить .
12. Вычислить максимальный элемент каждой строки матрицы 5´6.
13. Вычислить сумму элементов диагоналей матрицы 5´5.
14. Определить:
а) среднее арифметическое минимального и максимального элементов матрицы 5´6;
б) количество элементов матрицы,превосходящих это среднее арифметическое.
15. Определить сумму элементов матрицы 5´5, находящихся над главной диагональю.
16. В матрице 10´10 поменять местами элементы 3-его столбца и 3-ей строки.
17. Определить количество четных элементов матрицы 6´10.
18. Вычислить .
19. Вычислить минимальный элемент каждой строки матрицы 6´10.
20. Вычислить сумму максимальных элементов столбцов матрицы 6´10.
21. Поменять местами минимальный и максимальный элементы матрицы 7´12.
22. Вычислить сумму элементов матрицы,находящихся на фигуре:
1 11
(6,6)
11
23. Дана матрица 7´8.Определить номер столбца с минимальной суммой элементов.
24. Определить количество положительных элементов матрицы 5´8.
25. Вывести на экран строки матрицы 5´6, не содержащие нули.
26. В матрице 10´20 найти количество всех элементов, меньших заданного Т.
|
|
27. Сформировать матрицу 10´10 по следующему правилу: элементы главной диагонали приравнять 1, ни-
же главной диагонали - 0, а выше - сумме индексов.
28. Сформировать матрицу С 10´10, где при i ³ j и при i<j.
29. В матрице 10´15 поменять нумерацию элементов, т.е. .
30. Переформировать двумерный массив 10´10 таким образом, чтобы строки нового массива располагались
по возрастанию их поэлементных сумм.
31. Дана матрица 10´10. Найти произведение суммы элементов главной диагонали на сумму элементов
первой строки этой матрицы.
32. Преобразовать матрицу 10´15, разделив все элементы этой матрицы на величину, которая является
максимальной суммой элементов ее строк.
33. Преобразовать матрицу 10´15, разделив элементы каждой строки на величину, равную среднему зна-
чению положительных элементов этой же строки.
34. В матрице 10´10 поменять местами элементы строки и столбца, на пересечении которых находится ми-
нимальный из положительных элементов.
35. Наименьший элемент каждой строки матрицы 10´12, начиная со второй, заменить наибольшим эле-
ментом предшествующей строки.