Найти среднее арифметическое двенадцати чисел

@Balenok31 · Регистрация: 13.09.2012

Author24 — интернет-сервис помощи студентам

Задан массив состоящий из 12 чисел, найти Среднее арифметическое их. (задачу решить только в Бейсике). Заранее спасибо.

@urbic · 28.09.2012, 15:22

Программа:
1 CLS
2 RANDOMIZE TIMER
3 n = 12
4 DIM a(1 TO n)
5 FOR i = 1 TO n
6 a(i) = INT(RND * 100)
7 NEXT i
8 FOR i = 1 TO n
9 s = s + a(i)
10 NEXT i
11 FOR i = 1 TO n
12 PRINT a(i)
13 NEXT i
14 sr = s / n
15 PRINT "srednee arifmeticheckoe="; sr
16 END

@Balenok31 0 / 0 / 0 Регистрация: 13.09.2012 Сообщений: 6
		1
	Найти среднее арифметическое двенадцати чисел 28.09.2012, 13:12. Показов 1782. Ответов 1 Метки нет (Все метки) Задан массив состоящий из 12 чисел, найти Среднее арифметическое их. (задачу решить только в Бейсике). Заранее спасибо. 0

@urbic 140 / 130 / 127 Регистрация: 27.09.2012 Сообщений: 634
	28.09.2012, 15:22	2
	Программа: 1 CLS 2 RANDOMIZE TIMER 3 n = 12 4 DIM a(1 TO n) 5 FOR i = 1 TO n 6 a(i) = INT(RND * 100) 7 NEXT i 8 FOR i = 1 TO n 9 s = s + a(i) 10 NEXT i 11 FOR i = 1 TO n 12 PRINT a(i) 13 NEXT i 14 sr = s / n 15 PRINT "srednee arifmeticheckoe="; sr 16 END 1