Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
лаллах12
12.10.2020 01:45 •
Информатика
Заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку, заменив положительные элементы на число 0.
Показать ответ
Ответ:
KristiDever
05.07.2020 14:05
Uses crt;
var a: array[0..15] of integer;
i:integer;
begin
for i:=1 to 15 do begin
write(random(21)-10,' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
muriev
03.07.2021 11:42
Напишите программу, которая в бесконечном цикле вводит нечетные числа. Если введено четное число, то выводится сообщение об ошибке. Всего разрешается сделать 3 ошибки. После...
5Vlad2851
02.10.2020 09:14
. Текст длиной в 152 символов записан с алфавита из 40 символов.Определите количество информации в байтах в сообщении,закодированном с равномерного двоичного кода...
sasha19771
17.05.2021 04:38
Логическая функция F задаётся выражением (x ≡ z) → (z ≡ w)....
Angela11001
30.04.2021 12:52
Задание в Ecxel. Напишите , формулы для следующих условий: - для веса менее 400 кг – 0% от Суммы оплаты; - для веса от 400 кг до 900 кг – 4 % от Суммы оплаты; - для веса...
Lololoshka98
25.07.2022 09:39
Рассчитай объём видеопамяти, который понадобится для изображения 720 на 348 и палитрой 4 цвета...
aredov1987p069bi
18.06.2021 05:06
Ажнейший сохранения и передачи ин- формации. в истории человечества сформировались следующие формы письменности: звуковая, слоговая, идеографическая, пик- тографическая....
boikov2o
27.10.2020 23:02
Знайдіть в Інтернеті три різних означення інформаційного суспіль- ства. Складіть порівняльну характеристику цих означень. Визнач- те, яке з них, на вашу думку, більш повне....
Емаилком002
20.05.2020 15:46
Запишите значение переменной s, полученное в результате работы следующей программы s=0for k in range (12,16):s=s+13 print (s)...
1анж48
10.02.2022 07:37
Де розміщується інформація в інтернеті...
topovaya3
25.03.2022 01:45
Складіть сенкан намисто про намисто з твору Русалонька з 7-В...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: array[0..15] of integer;
i:integer;
begin
for i:=1 to 15 do begin
write(random(21)-10,' ');
end;
end.