Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
поля1209348756
21.09.2022 16:52 •
Информатика
Заполнить массив z{30] случайными числами в интервале от 2 до 49 и вывести его на экран
Показать ответ
Ответ:
sarinasergeeva
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 оценок)
Популярные вопросы: Информатика
zadyriakaartem
20.01.2021 09:18
Программирование вложенных условий. Урок 1 Сопоставь код с его результатом:Количество соединений: 4number=int(input( Enter the value of number= ))if(number!=0):if(number 0):print(...
Урлатоп
09.04.2020 14:01
берилген логикалык амалдардын орындау натижесин дазындар:а) (14 16) and (15 14)b)(Not (50 16)) or (24 12)ответ¡а) 0×1=0b)0+1=1...
dim4ik10
11.02.2020 18:17
Определите и запишите результат выполнения данного кода s=0 i=1 while i =12...
Эмир228
11.11.2021 17:42
5имем5м5 Простите но надо 20 символов...
ангел150705
14.10.2020 17:04
ЗАДАНИЕ 8.Дан список содержащий элементы: 20,35,45,69,10,15. Напишите программу, которая выведет все элементы списка больше 20 (3б)....
maxpotekhin2002200
02.05.2022 15:40
4. в приведённом програмном коде Решите...
fg4ne
31.10.2021 04:00
выполните 6 класс информатика примеры...
lmaxluk099
12.11.2022 12:34
Запишіть правильно за до символів, латинських літер та арабських цифр записи нижче поданих формул в ET 2x+4y (при умові, що значення х знаходяться в клітинці С10, а значення у...
Vitiaaaa
29.01.2023 14:50
Какая формула будет получена при копировании в ячейку D3,формулы из ячейки D2...
bilainфом
10.11.2022 05:14
Вычислить сумму элементов масива между первым и последним четными элементами. Имеется массив из 10 элементов, заполненный случайными значениями. Вычислить сумму всех элементов,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.