Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Ада и другие языки _ Матрицы

Автор: Lord of assembly 16.05.2006 20:22

Пожалуста помогите проверить код. Заранее благодарен.

Код
Option Explicit
Sub Rhp1()
Dim a(5, 5) As Integer
Dim i As Integer, j As Integer
Dim s As Double, k As Double
Dim min As Integer, max As Integer
Dim ih As Integer, imax As Integer
For i = 1 To 5
For j = 1 To 5
a(i, j) = Cells(i, j)
Next j
Next i
s = 0: k = 0: max = 12
For i = 1 To 5
For j = 1 To 5
If a(i, j) Mod 2 <> 0 Then s = s + a(i, j) Else k = k + 1
If a(i, j) > max Then
max = a(i, j)
imax = i
ih = Cells(i, 1) + Cells(1, 2)
End If
Next j
Next i
Cells(7, 6) = ("Сумма нечетных элементов = " & s)
Cells(8, 6) = ("Количество четных элементов = " & k)
Cells(9, 6) = ("Максимумы  - " & imax)
Cells(10, 6) = ("Произведение элементов в первой четверти = " & ih)
End Sub


Вот задание
1.Сформировать матрицу вида

1 2 2 2 2
3 1 2 2 2
3 3 1 2 2
3 3 3 1 2
3 3 3 3 1

2.Вычислить в этой матрице сумму нечетных элементов.
3.Вычислить количество четных элементов в каждой строке матрицы.
4.Вычислить максимумы в нечетных столбцах.
5.Вычислить произведение элементов в первой четверти.