10.04.2013, 09:16. Просмотров 3984. Ответов 3
условие задачи
Вариант 1.
Получить квадратную матрицу A размером NN (N – случайное число от 4 до 10) вида:
.
Заменить на (-1) элементы матрицы, большие среднего арифметического. Вывести исходную матрицу, среднее арифметическое и преобразованную матрицу.
Вставить в матрицу столбец, состоящий из элементов второстепенной диагонали.
Удалить из матрицы 2 указанные подряд идущие строки (с номерами М и М+1, M<N-1)
Visual Basic |
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
| Private Sub Command1_Click()
Dim a%(), n!, i%, j%
Dim S
Cls
Randomize (Timer)
n = Int(Rnd * 6) + 4
Print "n = "; n
ReDim a(n, n)
S = 0
For i = 1 To n
For j = 1 To n
If j < n - i + 2 Then a(i, j) = n - i - j + 2
Print a(i, j); " ";
If j Mod 2 = 0 Then S = S + a(i, j)
Next
Print
Next
S = S / (n * (n \ 2))
Print: Print "S="; S: Print
For i = 1 To n
For j = 1 To n
If a(i, j) > S Then a(i, j) = -1
Print a(i, j); " ";
Next
Print
Next
End Sub |
|
надо язык си++