Найти сумму элементов матрицы в четных строках и произведение элементов в нечетных строках. Предусмотреть: ввод матрицы по строкам с клавиатуры и из файла, вывод на экран значений исходных данных и результатов вычислений, ввод и вывод данных сопроводить пояснительным текстом.Найти сумму элементов матрицы в четных строках и произведение элементов в нечетных строках. — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Command1_Click()
Dim a() As Integer     'Obyavlyaem massiv
ReDim a(1 To 4, 1 To 4) As Integer
Dim intSum As Integer, sngPr As Single   'i peremennie
Dim i, j    'eto bydyt schetchiki
For i = 1 To 4
For j = 1 To 4
a(i, j) = InputBox("Vvedite element : " & i & j) 'Zapolnyaem matrizy
Next j
Next i
intSum = 0
sngPr = 1
For i = 2 To 4 Step 2 'S4itaem summu  4etnix strok
For j = 1 To 4
intSum = intSum + a(i, j)
Next j
Next i
For i = 1 To 4 Step 2 'S4itaem proizvedenie ne4etnix
For j = 1 To 4
sngPr = sngPr * a(i, j)
Next j
Next i
MsgBox "summa: " & intSum & " .Proizvedenie: " & sngPr
End Sub

Похожие записи/страницы:

Leave a Comment