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

Дан массив из 10 чисел от 1 до 10. вывести любое число рандомно

Ответ:

Janna91

04.10.2020 07:38

//PascalABC.Net 3.1.0.1200
begin
var a := ArrRandomInteger(10, 1, 10);
writeln(A[Random(A.Length)]);
end.

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

Популярные вопросы: Информатика

dianag141517

24.01.2020 22:55

Что тут не так? program nod; var a,b: integer; begin write ( введите два натуральных числа ); readln(4,2); while 4 2 do if 4 2 then a: =4-2 else b: =2-4 writeln( нод= ,4);...

tatsawi

21.02.2023 14:40

Напишите программу,которая запрашивает год и выдаёт на экран количество дней в этом году (год бывает високосным или нет)...

gerasim4uckirip08lfr

14.11.2021 23:20

Заполнить таблицу по информатике ...

dasa2208

02.02.2021 13:07

Текст,набранный на компьютере,занимает 10 страниц.на каждой странице 40 строк по 65 символов.какой объем информации содержится в тексте. перевести в более крупные единицы...

emirov2002

02.02.2021 13:07

3плюса и 3 минуса о электронной почте?...

Сабина761

14.09.2020 07:24

2. Подпишите название устройств....

4новичок4

20.12.2022 08:10

Для питона дана строка. замените в этой строке все появления буквы h на букву h, кроме первого и последнего вхождения. входные данные вводится строка. выходные данные выведите...

Tasik3

20.12.2022 08:10

Для питона определите сумму всех элементов последовательности, завершающейся числом 0. входные данные вводится последовательность целых чисел, оканчивающаяся числом 0 (само...

kuchakshoevaZ

20.12.2022 08:10

Автоматическое устройство осуществила перекодировку информационного сообщения записанного на языке из 16 битной в 8 битную кодировку. на сколько изменился информационный...

настящасте

20.12.2022 08:10

Для питона даны числа a, b, c, d, e. подсчитайте количество таких целых чисел от 0 до 1000, которые являются корнями уравнения (ax3+bx2+cx+d)/(x-e)=0, и выведите их количество....

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

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