Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.84/25: Рейтинг темы: голосов - 25, средняя оценка - 4.84
 Аватар для MilcA
0 / 0 / 0
Регистрация: 27.06.2011
Сообщений: 20

Ввод элементов массива

27.06.2011, 17:57. Показов 5347. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста!
Организовать ввод элементов массива, состоящих из 9 элементов.Заполняется случайными числами, в границах от (-50;50). Числа только целые.
пожалуйста, помогите. Я составила вроде, но что-то не так, не работает(
очень срочно надо!
Заранее спасибо!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
27.06.2011, 17:57
Ответы с готовыми решениями:

Найти R=(Х+Y)/Z,где Х-сумма всех элементов массива А(14), Y-сумма всех элементов массива В(9),Z-сумма всех элементов массива С(11)
Заданы три массива:А(5),В(8) и С(12). Найти R=(Х+Y)/Z,где Х-сумма всех элементов массива А(14),...

Организовать ввод-вывод массива, определить количество нулевых элементов массива
2. Составить программу, в которой организовать ввод-вывод одномерного массива, нахождения...

Описать функцию, вычисляющую произведение чисел целочисленного массива A(N) . Ввод элементов массива оформить в виде процедуры
Описать функцию, вычисляющую произведение чисел целочисленного массива A(N) . Ввод элементов...

10
 Аватар для MAN-HUNT
27 / 27 / 26
Регистрация: 17.01.2011
Сообщений: 153
27.06.2011, 19:38
Опубликуйте ваш "эксклюзив", и вам подскажут где у вас ошибка....
0
 Аватар для MilcA
0 / 0 / 0
Регистрация: 27.06.2011
Сообщений: 20
27.06.2011, 23:36  [ТС]
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program mas;
    const
    n = 9;
    var i : integer;
    m : array[1..n] of integer;
    BEGIN
    Randomize ; for i := 1 to 9 do
    begin
                                m (int := random(100-50);
                                write(int ,' ');
                                end;
    END.
вот...
0
 Аватар для Daemon025
382 / 330 / 159
Регистрация: 06.12.2010
Сообщений: 894
27.06.2011, 23:49
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program mas;
 uses crt;
 const  n = 9;
 var i : integer;
 m : array[1..n] of integer;
 BEGIN
 Randomize ; 
for i := 1 to 9 do
 begin
 m[i]:= random(100)-50;
 write(m[i] ,' ');
 end;
 END.
1
 Аватар для MilcA
0 / 0 / 0
Регистрация: 27.06.2011
Сообщений: 20
28.06.2011, 00:14  [ТС]
Помогите, пожалуйста, еще подруге решить!
Создать линейный массив из 5 элементов. Массив заполняется случайными числами от 0 до 1.
Заранее спасибо!)
0
 Аватар для Daemon025
382 / 330 / 159
Регистрация: 06.12.2010
Сообщений: 894
28.06.2011, 00:16
Цитата Сообщение от MilcA Посмотреть сообщение
Массив заполняется случайными числами от 0 до 1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program mas;
 uses crt;
 const  n = 5;
 var i : integer;
 m : array[1..n] of real;
 BEGIN
 Randomize ; 
for i := 1 to 5 do
 begin
 m[i]:= random;
 write(m[i]:2:2 ,' ');
 end;
 END.
1
 Аватар для MilcA
0 / 0 / 0
Регистрация: 27.06.2011
Сообщений: 20
28.06.2011, 00:25  [ТС]
Daemon025 СПАСИБО БОЛЬШОЕ!!!! Я ЗАВТРА В ЧАСИКОВ 11 ЕСЛИ ЧТО БДУ СЮДА ПИСАТЬ, МНЕ ПРОГРАММИРОВАНИЕ СДАТЬ НАДО...))) НАДЕЮСЬ, ВЫ МНЕ ПОМОЖИТЕ!)
еЩЕ РАЗ СПАСИБО....
0
 Аватар для Daemon025
382 / 330 / 159
Регистрация: 06.12.2010
Сообщений: 894
28.06.2011, 00:27
Цитата Сообщение от MilcA Посмотреть сообщение
Я ЗАВТРА В ЧАСИКОВ 11
сам буду сдавать
Цитата Сообщение от MilcA Посмотреть сообщение
ПРОГРАММИРОВАНИЕ
0
 Аватар для MilcA
0 / 0 / 0
Регистрация: 27.06.2011
Сообщений: 20
28.06.2011, 12:59  [ТС]
Цитата Сообщение от Daemon025 Посмотреть сообщение
сам буду сдавать
ЭХ, ЖАЛЬ...

Добавлено через 12 часов 31 минуту
помогите пожалуйста. мне надо, чтобы числа были в этой программе и положительные и отрицательные, так как промежуток от (-50;50) а у меня тока выдает положительные до 50(((
очень срочно!!! пожалуйста!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program mas;
const
n=9;
var i : integer;
m : array[1..n] of integer;
begin
Randomize;
for i := 1 to 9 do
begin
m[i] := random (100-50);
write (m[i], ' ');
end;
end.
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
29.06.2011, 08:05
Pascal
1
m[i] := random (101)-50;
1
 Аватар для MilcA
0 / 0 / 0
Регистрация: 27.06.2011
Сообщений: 20
03.07.2011, 23:42  [ТС]
Спасибо, я уже отредактировала так, когда сдавала!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
03.07.2011, 23:42
Помогаю со студенческими работами здесь

Помогите сделать ввод количества элементов массива и сами элементы массива
var a:array of integer; i:integer; BEGIN clrscr; randomize; writeln('Массив А:'); for i:=1...

Ввод элементов массива, вывод и увеличение каждого элемента массива в 3 раза
Заданы два одномерных массива разного размера. Организовать три процедуры: ввод элементов массива,...

Ввод с клавиатуры 7 целых чисел и ввод этих чисел в обратном порядке
Я не могу выполнить одну задачу.Составте задачу для ввода с клавиатуры 7 целых чисел и ввода этих...

Исправить ввод только слова на ввод целого текста
Помогите исправить. Надо чтобы не одно слово можно водить, а текст. uses crt; var...

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


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

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
1С: Контроль уникальности заводского номера
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru