Заполнить массив десятью целыми случайными числами, каждое из которых не превышает 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

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

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

	Заполнить массив десятью целыми случайными числами, каждое из которых не превышает 20 11.03.2010, 14:44. Показов 2278. Ответов 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