Заполнить массив десятью целыми случайными числами, каждое из которых не превышает 20

@Damask · Регистрация: 17.02.2010

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

Скорей всего это последнее задание которое дали...т.к. я уже писал в прошлой теме,что скоро контрольная, хотя кто их знает...этих преподавателей,что у них там на уме.
В этот раз дали такое вот задание:

Заполнить массив десятью целыми случайными числами, каждое из которых не превышает 20. Вывести значения в компонент ListBox. Расположите соответствующие компоненты на форме для вывода ответов и напишите процедуры для поиска:
а) суммы первого и последнего элементов
б) среднего значения первых пяти элементов
в) количества элементов, значения которых больше числа 10.
Примечание: для получения случайного числа, не превышающего N необходимо воспользоваться формулой A(i)=int(rnd*N)

@Toxa33rus · 11.03.2010, 23:03

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim A(1 to 10)
For i=1 to 10
  A(i) = int(rnd*20)
next i
 
print A(1) + A(10)
 
s=0
for i=1 to 5
s=s+A(i)
next i
print s/5
 
c=0
for i=1 to 10
  if A(i) >10 then c=c+1
next i
print c

@gaw · 12.03.2010, 00:08

Toxa33rus сори
забабахал американский код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
Dim a(10)
 List1.Clear
s = 0: c = 0
For i = 1 To 10
  a(i) = Int(Rnd * 20)
  List1.AddItem a(i)
  If i < 6 Then s = s + a(i)
If a(i) > 10 Then c = c + 1
Next i
    List1.AddItem "-------------"
 List1.AddItem "a(1) + a(10)=" & a(1) + a(10)
   List1.AddItem "-------------"
 List1.AddItem "S5/5 = " & s / 5
    List1.AddItem "-------------"
 List1.AddItem "a(i) > 10  ---  " & c
 
End Sub

@Toxa33rus · 16.03.2010, 23:52

Не по теме:

Сообщение от gaw

Toxa33rus сори
забабахал американский код

gaw, а какая его часть из америки? :)

@gaw · 17.03.2010, 00:06

это у нашего школьника спросить нада, или, точнее, у его преподавателя
есть, конечно, "любители кода в одну строчку", есть ценители "своего кода " как единственно правильного, есть критики кода (как бы писать в тягость)
я просто учусь и стараюсь писать, что бы мог прочитать еще кто то кроме меня
ведь и мысли каждый излагает (как правило неоднозначные, это не код "это вам ни это

") в рамках своего развития. Честь и хвала тем кто старается эти рамки разширить.
Ведь и собака многое понимает, только вот сказать не может

@Damask · 22.03.2010, 13:18 **[ТС]**

Спасибо за помощь, ребята. За четверть поставили 5 и контрольную получилось написать!) А что тут американского, я не знаю. Спрошу как-нибудь у преподавателя и напишу, что её смутило.

@gaw · 22.03.2010, 15:23

ну и каов рейтинг у тебя ?

@Damask · 25.03.2010, 06:03 **[ТС]**

Сообщение от gaw

ну и каов рейтинг у тебя ?

90%!) и уже с 80% было 5

Кст,у нас большинство людей из группы не аттестованы,теперь они на каникулах посещают дополнительные занятия.

@Toxa33rus · 25.03.2010, 16:58

Сообщение от Damask

Кст,у нас большинство людей из группы не аттестованы,теперь они на каникулах посещают дополнительные занятия

Вот что бывает с теми кто не знает про cyberforum.ru

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Damask 2 / 2 / 0 Регистрация: 17.02.2010 Сообщений: 12

	Заполнить массив десятью целыми случайными числами, каждое из которых не превышает 20 11.03.2010, 14:44. Показов 2330. Ответов 8 Метки нет (Все метки) Скорей всего это последнее задание которое дали...т.к. я уже писал в прошлой теме,что скоро контрольная, хотя кто их знает...этих преподавателей,что у них там на уме. В этот раз дали такое вот задание: Заполнить массив десятью целыми случайными числами, каждое из которых не превышает 20. Вывести значения в компонент ListBox. Расположите соответствующие компоненты на форме для вывода ответов и напишите процедуры для поиска: а) суммы первого и последнего элементов б) среднего значения первых пяти элементов в) количества элементов, значения которых больше числа 10. Примечание: для получения случайного числа, не превышающего N необходимо воспользоваться формулой A(i)=int(rnd*N) 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	17.03.2010, 00:06
	это у нашего школьника спросить нада, или, точнее, у его преподавателя есть, конечно, "любители кода в одну строчку", есть ценители "своего кода " как единственно правильного, есть критики кода (как бы писать в тягость) я просто учусь и стараюсь писать, что бы мог прочитать еще кто то кроме меня ведь и мысли каждый излагает (как правило неоднозначные, это не код "это вам ни это ") в рамках своего развития. Честь и хвала тем кто старается эти рамки разширить. Ведь и собака многое понимает, только вот сказать не может 1

@Damask 2 / 2 / 0 Регистрация: 17.02.2010 Сообщений: 12
	22.03.2010, 13:18 [ТС]
	Спасибо за помощь, ребята. За четверть поставили 5 и контрольную получилось написать!) А что тут американского, я не знаю. Спрошу как-нибудь у преподавателя и напишу, что её смутило. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	22.03.2010, 15:23
	ну и каов рейтинг у тебя ? 0

Опции темы