Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Evgeniy63
0 / 0 / 0
Регистрация: 29.04.2015
Сообщений: 28
#1

Вывод случайного ЭЛЕМЕНТА из массива - Turbo Pascal

06.08.2017, 16:35. Просмотров 339. Ответов 2
Метки нет (Все метки)

Т.е. не массива с рандомными числами, а именно одного-единственного случайного элемента, значения заданы по умолчанию, помогите пожалуйста, это организовать, мой код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
uses crt;
 
var a: array[1..32] of real; i, n: byte;
begin
clrscr;
randomize;
  for i := 1 to 32 do
a[1]:=0.03;
a[2]:=0.05;
a[3]:=0.1;
a[4]:=0.15;
a[5]:=0.2;
a[6]:=0.3;
a[7]:=0.4;
a[8]:=0.5;
a[9]:=1;
a[10]:=2;
a[11]:=3;
a[12]:=4;
a[13]:=5;
a[14]:=6;
a[15]:=7;
a[16]:=8;
a[17]:=9;
a[18]:=10;
a[19]:=11;
a[20]:=12;
a[21]:=13;
a[22]:=14;
a[23]:=15;
a[24]:=16;
a[25]:=17;
a[26]:=18;
a[27]:=19;
a[28]:=20;
a[29]:=21;
a[30]:=22;
a[31]:=23;
a[32]:=24;
 
  writeln(a[i]);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.08.2017, 16:35
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывод случайного ЭЛЕМЕНТА из массива (Turbo Pascal):

вывод на экран случайного одномерного массива,ввод с клавиатуры одномерного массива и вывод его на экран.и все это в одной проге.как это сделать? - Pascal
надо чтобы при запуске прграммы в паскале сначала вывелся на кран одномерный случайный массив,потом ввод с клавиатуры одномерного массива и...

Вывод номера элемента массива, который равен заданому числу - Turbo Pascal
Добрый день!) Прошу помоч мне с програмкой) Как вывести нужный мне элемент с массива я знаю), проблема в том что количество елементов...

Вывод массива, каждые три последовательных элемента в строке которого составлены по правилу - Turbo Pascal
2.Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по...

Поиск максимального элемента массива в функции и вывод всех результатов на экран и в файл - Pascal
Всем привет! Задача следщая: 1. Сформировать двумерный массив F размером 8 x 8 2. с помощью генератора случайных чисел и вывести...

Ввод элементов массива ,вещественных чисел и вывод в виде матрицы, определение максимального элемента - Turbo Pascal
Разработать алгоритм и составить программу, выполняющей ввод элементов массива А(4х4) вещественных чисел и вывод ее на экран в виде...

Поменять местами значение первого четного элемента массива со значением последнего нечетного элемента массива. - Turbo Pascal
Дан массив С(30). Поменять местами значение первого четного элемента массива со значением последнего нечетного элемента массива. ...

2
Puporev
Модератор
54039 / 41672 / 14751
Регистрация: 18.05.2008
Сообщений: 97,991
06.08.2017, 17:32 #2
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
const n=32;
      a:array[1..n] of real=(0.03,0.05,0.1,0.15,0.2,0.3,0.4,0.5,1,2,3,4,5,6,7,8,
                              9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24);
begin
clrscr;
randomize;
writeln('Случайный элемент массива  ',a[1+random(n)]:0:2);
readln
end.
0
Evgeniy63
0 / 0 / 0
Регистрация: 29.04.2015
Сообщений: 28
06.08.2017, 18:41  [ТС] #3
Все работает, спасибо большое
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.08.2017, 18:41
Привет! Вот еще темы с ответами:

номера минимального элемента массива и элемента, являющегося минимальным без учета этого элемента - Pascal
11.109. Дан массив. Определить: а) максимальный элемент массива и элемент, являющийся максимальным без учета этого элемента; 6)...

Найти среднее арифметическое до минимального элемента и после максимального элемента массива - Pascal
Дан массив F(11). найти среднее арифметическое до минимального элемента и после максимального элемента массива

Поменять местами два элемента массива, равноудалённых от элемента с заданным номером - Turbo Pascal
Помогите с задачей : В отсортированном по убыванию одномерном массиве из N вещественных чисел поменять местами элементы, стоящие...

Составить программу поиска наибольшего по модулю элемента массива, а также индекса этого элемента - Pascal
Помогите написать программу и составить блок схему. Дано массив А и натуральное число n. Составить программу поиска наибольшего по модулю...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru