Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Snezhana206
15.03.2021 08:03 •
Информатика
Заполнить массив z{30] случайными числами в интервале от 2 до 49 и вывести его на экран
Показать ответ
Ответ:
sakyra2025
05.07.2020 17:13
Var z:array[1..30]of integer;
var i:integer;
begin
randomize;
for i:=1 to 30 do begin
Z[i]:=(random(52))-2;
writeln(Z[i]);
end;
end.
значения выводить можно через отдельный цикл
var z:array[1..30]of integer;
var i:integer;
begin
randomize;
for i:=1 to 30 do Z[i]:=(random(52))-2;
for i:=1 to 30 do writeln(Z[i]);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
toptop54
21.04.2023 04:03
Откуда в интернете появился символ @...
kristipus2003
21.04.2023 04:03
Сколько поколений компьютера сегодня существует a 3 b 4 c 5 d не определено...
Mako9375
21.04.2023 04:03
«в каждом человеке есть солнце, только дайте ему светить » , если информационный вес одного символа равен 2 байта....
F777FF
21.04.2023 04:03
Определите площадь и периметр прямоугольника со стороной x и у...
POLINAzhavoronkova
11.03.2020 11:43
Сколько байт информации содержит сообщение объёмом 2 кбайт? в ответе укажите одно число....
мммм1984
26.12.2021 16:24
При составлении сообщения использовали 64-символьный алфавит. каким будет информационный объём такого сообщения, если оно содержит 3072 символов?...
моллск
26.12.2021 16:24
Вфинале турнира российской армии по шахматам встретились представители шести воинских званий: майор, капитан, лейтенант, старшина, сержант и ефрейтор, причём разных специальностей:...
Яяяяя11111111
10.06.2022 22:40
Определите порядок действий компьютера при вычислении выражения: x : = y - a * 5 / 2 * 7 + 6 / 3; // 1 2 3 4 5 6 в ответ запишите шесть цифр без разделителей в порядке выполнения операций....
pollyshtal33333333
08.04.2023 18:45
Нужна python если нужно могу скинуть библиотеку в сообщения...
еаае1ьп
30.09.2020 20:54
Перед вами фрагмент программы: x : = 2019; y : = x - 10; x : = x - y; write(y, , x); какие числа будут выведены на экран? в качестве ответ запишите числа, разделяя их одинарным пробелом,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i:integer;
begin
randomize;
for i:=1 to 30 do begin
Z[i]:=(random(52))-2;
writeln(Z[i]);
end;
end.
значения выводить можно через отдельный цикл
var z:array[1..30]of integer;
var i:integer;
begin
randomize;
for i:=1 to 30 do Z[i]:=(random(52))-2;
for i:=1 to 30 do writeln(Z[i]);
end.