Войти Регистрация Спроси ai-bota

Написать программу, паскаль: вывести на экран 10 случайных чисел.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

yul310588

19.04.2020 12:05

Составить программу вычислить сумму порядковых номеров всех букв , входящих в слово sum. )...

Dania2432

01.01.2023 07:17

Составить словесный алгоритм для как написать сочинение заранее )...

albina24061980

05.09.2022 10:41

2. решить (программа): а) найти сумму чисел в диапазоне от 10 до 30 б) найти произведение чисел в диапазоне от 10 до 15 в) найти сумму четных чисел в диапазоне от 10...

СвинкаГоппа

09.04.2022 04:17

Племя пульти пользуется 32 символьным алфавитом свод основных законов племени хранится на 512 глинянных табличках, на каждую из которых нанесено ровно 256 символов....

НяшаНика

09.04.2022 04:17

Информационный объем текста записанного при достаточного алфавита равен 3.5 кбайта. сколько символов содержит этот текст?...

Саня200763

01.11.2020 04:14

Надо расшифровать слово из кода 100110110...

sashagorchakova

01.11.2020 04:14

Пользователь работал с каталогом тициан. сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз, потом ещё раз поднялся на один уровень вверх....

Санжик707

24.04.2021 21:44

Pascal: дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. найти сумму элементов, которые расположены за максимальным элементом....

AlexeyCherkasa

24.04.2021 21:44

Pascal: в области 10 районов. для каждого района известны площади, засеянные пшеницей и урожай собранный с этих площадей. определить, в каком районе средняя урожайность...

СараАмилина

24.04.2021 21:44

Напишите ответ : порівняння айфон та андроїд. зараниее...

Ответ:

kinderlolo19999

07.10.2020 06:32

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
SeqRandomInteger.Println;
end.

Пример
37 32 43 6 0 47 40 70 52 16

0,0(0 оценок)

Ответ:

NoNameKek1Himka

07.10.2020 06:32

Var
i:integer;
begin
randomize;
for i:= 1 to 10 do
write(random(100000)- random(100000), ' ');
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку