{* Задача74 *}

REM basic

'

Дана матрица:

'

Задание 1. Найти среднее
' значение элементов, стоящих в первой строке.

'

Задание 2. Умножить все элементы
' матрицы на число 3 и вывести полученную матрицу на печать.

5 {очистка экрана
}
10 CLS

15 {присвоение данных элементам матрицы
}
20 Dim A(2,3)

25 For I = 1 To 2

30 For J = 1 To 3

35 READ A(I,J)

40 Next J

45 Next I

50 {вычисление среднего значения элементов матрицы
}
55 S = (A(1,1)+A(1,2)+A(2,3))/3

60 PRINT " СРЕДНЕЕ ЗНАЧЕНИЕ ЭЛЕМЕНТОВ ПЕРВОЙ

СТРОКИ S = ";S:PRINT

65 {умножение элементов матрицы на число
}
70 For I = 1 To 2

75 For J = 1 To 3

80 B(I,J) = A(I,J)*3

85 Next J

90 Next I

95 {распечатка значений элементов новой матрицы
}
100 PRINT "ЗНАЧЕНИЯ ЭЛЕМЕНТОВ НОВОЙ МАТРИЦЫ": PRINT

105 For I = 1 To 2

110 For J = 1 To 3

115 PRINT B(I,J);

120 Next J

125 PRINT:PRINT

130 Next I

135 DATA 2,3.1,8.1,-1,5,-3

140 End