end.

Данная задача была решена также в MSExcel. Лист с решением задачи приведен ниже.

Программа выполненная на языке Microsoft Visual Basic 6.0

Private Sub Command1_Click()

Dim i, j, m, n As Integer

Dim s As Double

Dim c(1 To 50, 1 To 50) As Double

m = 3

n = 3

For i = 1 To m

For j = 1 To n

c(i, j) = 7 * i - j

Next

Next

s = 0

For i = 1 To m

For j = 1 To n

If m = n Then s = s + c(i, i) Else s = s + c(i, j)

Next

Next

Print s

End Sub

Private Sub Form_Load()

End Sub

Список литературы

1. Информатика: Базовый курс. / С. В. Симонович и др. СПб.: Питер, 2005

2. Острейковский В. А. Информатика: Учеб. для вузов. – М.: Высш. шк., 2000. – 511 с.: ил.

3. Алексеев Е. В. и др. Вычислительная техника и программирование. Практикум по программированию: Практ. пособие / В. Е. Алексеев, А. С. Ваулин, Г. Б. Петрова; Под ред. А. В. Петрова. – М.: Высш. шк., 1991. – 400 с.: ил

4. Глушаков С. В., Мельников И. В. Персональный компьютер: Учебный курс / Худож. оформитель А. С. Юхтман. – Харьков: Фолио; М.: ООО «Издательство АСТ», 2001. – 520 с. – (Домашняя б-ка).