Заполнить массив случайными числами от 1 до 100, вывести массив на экран

@Roxyash · Регистрация: 02.12.2016

Author24 — интернет-сервис помощи студентам

1) Реализовать динамический массив целых чисел, заполнить его случайными числами от 1 до 100, вывести массив на экран.

@Puporev · 02.12.2016, 18:04

Паскаль АВС.net?

@Roxyash · 02.12.2016, 18:06 **[ТС]**

Pascal ABC.

@Roxyash · 02.12.2016, 18:07 **[ТС]**

Поможешь? Буду очень благодарен!

@Puporev · 02.12.2016, 18:10

В нем к сожалению нет динамических массивов, ни тех что в .net, ни тех что в Турбо Паскаль.

Добавлено через 1 минуту
Задачи наверняка взяты из задачника по Турбо Паскаль при отключенном мозге.

@Roxyash · 02.12.2016, 18:14 **[ТС]**

К сожалению, наш учитель дал нам задание, это на ABC PASCAL, вот! Единственное, что я помню с лекции, это объявление переменной var p,b:^integer;(^) - что то должно быть связано с этим символом

@Puporev · 02.12.2016, 18:27

Может так?

Pascal

var a:^array[1..100] of integer;
    n,i,j:integer;
begin
new(a);
repeat
write('Введите размер массива от 1 до 100 n=');
readln(n);
until n in [1..100];
for i:=1 to n do
 begin
  a^[i]:=1+random(100);
  write(a^[i]:4);
 end
end.

@Roxyash · 02.12.2016, 18:30 **[ТС]**

Именно!!! Спасибо!!! Можешь на подобии этого задания ещё 3 сделать!!!!

@Puporev · 02.12.2016, 18:31

Это в принципе не динамический массив, где не известен его размер, а память выделяется после ввода размера

Pascal

var a:array of integer;
...............................
readln(n) ;
setlength(a,n);

Это размещение в динамической памяти массива размером 100 элементов.

@Roxyash · 02.12.2016, 18:34 **[ТС]**

Ну нам, сказали сделать именно так как ты написал!!!

Pascal

var a:^array[1..100] of integer;
    n,i,j:integer;
begin
new(a);
repeat
write('Введите размер массива от 1 до 100 n=');
readln(n);
until n in [1..100];
for i:=1 to n do
 begin
  a^[i]:=1+random(100);
  write(a^[i]:4);
 end
end.

@Puporev · 02.12.2016, 18:35

В строке 2 убери j.

@Roxyash · 02.12.2016, 18:38 **[ТС]**

Хорошо!)

Добавлено через 2 минуты

@Nightwiz · 04.11.2020, 10:27

А что за new(a);
В строке 4, у меня из за этого не запускается, Pascal ABC.NET

@Puporev · 04.11.2020, 10:49

Сообщение от Nightwiz

не запускается, Pascal ABC.NET

В .net есть динамические массивы var a:array of integer; И этот коднаписан не для .net.

@Nightwiz 0 / 0 / 0 Регистрация: 23.09.2020 Сообщений: 16
	04.11.2020, 10:27	13
	А что за new(a); В строке 4, у меня из за этого не запускается, Pascal ABC.NET 0

Новые блоги и статьи
Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .
[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .

@Roxyash 0 / 0 / 0 Регистрация: 02.12.2016 Сообщений: 12
		1
	Заполнить массив случайными числами от 1 до 100, вывести массив на экран 02.12.2016, 17:57. Показов 130983. Ответов 13 Метки нет (Все метки) 1) Реализовать динамический массив целых чисел, заполнить его случайными числами от 1 до 100, вывести массив на экран. 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	02.12.2016, 18:04	2
	Паскаль АВС.net? 0

@Roxyash 0 / 0 / 0 Регистрация: 02.12.2016 Сообщений: 12
	02.12.2016, 18:06 [ТС]	3
	Pascal ABC. Миниатюры 0

@Roxyash 0 / 0 / 0 Регистрация: 02.12.2016 Сообщений: 12
	02.12.2016, 18:07 [ТС]	4
	Поможешь? Буду очень благодарен! 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	02.12.2016, 18:10	5
	В нем к сожалению нет динамических массивов, ни тех что в .net, ни тех что в Турбо Паскаль. Добавлено через 1 минуту Задачи наверняка взяты из задачника по Турбо Паскаль при отключенном мозге. 0

@Roxyash 0 / 0 / 0 Регистрация: 02.12.2016 Сообщений: 12
	02.12.2016, 18:14 [ТС]	6
	К сожалению, наш учитель дал нам задание, это на ABC PASCAL, вот! Единственное, что я помню с лекции, это объявление переменной var p,b:^integer;(^) - что то должно быть связано с этим символом 0

@Roxyash 0 / 0 / 0 Регистрация: 02.12.2016 Сообщений: 12
	02.12.2016, 18:30 [ТС]	8
	Именно!!! Спасибо!!! Можешь на подобии этого задания ещё 3 сделать!!!! 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	02.12.2016, 18:35	11
	В строке 2 убери j. 0

@Roxyash 0 / 0 / 0 Регистрация: 02.12.2016 Сообщений: 12
	02.12.2016, 18:38 [ТС]	12
	Хорошо!) Добавлено через 2 минуты 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	04.11.2020, 10:49	14
	Сообщение от Nightwiz не запускается, Pascal ABC.NET В .net есть динамические массивы var a:array of integer; И этот коднаписан не для .net. 0

Заполнить массив случайными числами от 1 до 100, вывести массив на экран

Решение