Помогите. - Помощь студентам

5Настёна · 04.12.2013, 17:58

С клавиатуры вводится 10 произвольных чисел. Составить блок-схему и программу, определяющие сумму нечетных чисел и их среднее арифметическое значение.

ZX Spectrum-128 · 04.12.2013, 18:11

Язык программирования?

5Настёна · 04.12.2013, 18:21

Мне именно нужна запись через макросы, делается это в Exel.

ZX Spectrum-128 · 04.12.2013, 18:27

Код:

Dim a as integer
Sum=0
Kol=0
For i=1 to 10
  Input(a) <---- или ввод средтсвами excel
  If a\2=0 then
    Sum=sum+a
    Kol=kol+1
  End if
Next i
Sum=sum/kol

04.12.2013, 17:58	#1
5Настёна Новичок Джуниор Регистрация: 04.12.2013 Сообщений: 3	Помогите. С клавиатуры вводится 10 произвольных чисел. Составить блок-схему и программу, определяющие сумму нечетных чисел и их среднее арифметическое значение.

04.12.2013, 18:27	#4
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	Код: `Dim a as integer Sum=0 Kol=0 For i=1 to 10 Input(a) <---- или ввод средтсвами excel If a\2=0 then Sum=sum+a Kol=kol+1 End if Next i Sum=sum/kol` Последний раз редактировалось ZX Spectrum-128; 04.12.2013 в 18:32.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите создать програму для роботы с файлами, пожалуйста помогите нужно очень срочно	Сергей Человек	Фриланс	3	06.07.2009 19:30
Помогите Помогите Пожалуйста Решить Одну Задачку в Паскале!!!	VisTBacK	Помощь студентам	6	19.09.2008 13:44

04.12.2013, 18:11	#2
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	Язык программирования?

04.12.2013, 18:21	#3
5Настёна Новичок Джуниор Регистрация: 04.12.2013 Сообщений: 3	Мне именно нужна запись через макросы, делается это в Exel.