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

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

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

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