Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
kononenkoalinka
01.03.2023 01:33 •
Информатика
Создайте программу , которая формирует массив из шестнадцати случайных целых от -20 до 20 и находит элементы с нулевыми значениями
Ответ:
Andrey21vek
04.10.2020 15:54
Program Massiv;
Const N:= 16;
Var A: array [1..N] of integer;
: integer ;
Begin
Randomize;
For i:= 1 to N Do
A[i] := -20 + Random(20);
For i:= 1 to N Do
If A[i]:=0 then Writeln (A[i]) ;
Readln;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Alinwhite
25.11.2021 17:26
Впиши правильный ответ. Найди закономерность и продолжи последовательность, написав ещё четыре следующие буквы через запятую, через пробел (например: a, e, i, m): d, g,...
gcgccg
24.10.2020 11:13
БУЛЕВЫЕ ФУНКЦИИ (задание 3, 4, 5) хоть что-нибудь. Если есть пример задания 3, под буквой а) (сверху над фото)...
Болотбекова2001
09.01.2023 18:55
Каждый охотник желает знать, где сидит фазан. При кодировании слова РАДУГА получилась следующая последовательность ячеек: оранжевый красный белый белый белый зеленый оранжевый...
lisya778
20.03.2022 21:14
Уточните, каков объём оперативной памяти компьютера, к ко- торому вы имеете доступ дома или в школе. Сколько страниц текста можно разместить в памяти этого компьютера (на...
nikitabelokon21
06.02.2022 09:58
Пусть А = первая буква имени согласная , В последняя буква имени гласная заполните таблицу (А.)(В). (А и НЕ B) (истина или ложь Елена Вадим Антон Фёдор Мария...
nikita404590
06.09.2020 22:50
Сколько единиц содержится в двоичной записи значения выражения: 8^20+2^17-15? В ответ запишите только число – количество единиц в записи....
kall4
24.01.2022 06:15
Мистер Фокс изучает системы счисления. Он взял число 22 и перевел его в другую систему счисления, получив при этом число 112 . А вот основание системы счисления, в которую...
Bollsav
17.03.2023 14:04
НУЖНО: Написать программу ввода, инициализации и вывода массива размерности N (в программе Паскаль ) где N число букв вашего имени и фамилии без пробела (Например: ИванИванов,...
revernastyn
10.08.2021 05:40
Мистер Фокс купил электронную книгу, которая содержит 80 страниц, на каждой из которой по 32 строки из 64 символов. Книга закодирована в -тибитной кодировке Unicode. Узнайте,...
ruslan428
17.08.2021 03:57
ПАЙТОН.Скласти, зберегти, виконати і записати в зошит програму розв язування задачi(свій варіант) двома іб I з використанням циклу з параметром іб 2 з використанням циклу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Const N:= 16;
Var A: array [1..N] of integer;
: integer ;
Begin
Randomize;
For i:= 1 to N Do
A[i] := -20 + Random(20);
For i:= 1 to N Do
If A[i]:=0 then Writeln (A[i]) ;
Readln;
End.