| Вашу религию, студенты (школьники), вы совсем обленились? Как решать такие задачи написано в ЛЮБОМ учебнике... 1) подсчитать кол-во едениц на главной диагонали. Code KVO = 0
For i = 1 to 7
If MATRIX(i,i) = 1 Then
KVO = KVO + 1
End if
Next i 2) найти произведение элементов побочной диагонали. Code PRE = 1
For i = 1 to 7
j = 8 - i
PRE = PRE*MATRIX(i,j)
Next i 3) определить максимальный элемент среди элементов над главной диаганалью. Code MAX = MATRIX(1,2)
MAXI = 1
MAXJ = 2
For i = 1 to 6
For j = i+1 to 7
If MATRIX(i,j)>MAX Then
MAX = MATRIX(i,j)
MAXI = i
MAXJ = j
End if
Next j
Next i 4) поменять местами 1-й и 4-й столбцы. Code For i = 1 to 7
BUFER = MATRIX(i,1)
MATRIX(i,1) = MATRIX(i,4)
MATRIX(i,4) = BUFER
Next i 5) удалить 4 строку. (не точно сформулировано задание, возможно нужно просто обнулить четвертую строку, но так как дополнительных данных нет будем удалять со здвигом ввер, обнуляя последнюю строку) Code For i = 4 to 7
For j = 1 to 7
If i = 7 Then
MATRIX(i,j) = 0
Else
MATRIX(i,j) = MATRIX(i+1,j)
End if
Next j
Next i 6) подсчитать среднее арифметическое преобразованной матрицы. (будем считать что последняя строка в расчете не принимает участия вообще) Code SARIFM = 0
For i = 1 to 6
For j = 1 to 7
SARIFM = SARIFM + MATRIX(i,j)
Next j
Next i
SARIFM = SARIFM/(7*6) 7) вставить 2-ой столбец с клавиатуры. Code For i = 1 to 7
Input MATRIX(i,2)
Next i
Изменил GreatEvilGod - Среда, 28.04.2010, 18:57
| 
