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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

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

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