Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
природа45
13.04.2022 22:19 •
Информатика
Создайте программу , которая формирует массив из шестнадцати случайных целых от -20 до 20 и находит элементы с нулевыми значениями
Показать ответ
Ответ:
хитрыйкот
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 оценок)
Популярные вопросы: Информатика
Marvarick
13.08.2022 07:56
По информатике.только одно слово. костер ,переставить буквы в этих словах так чтобы получилось новое слово....
merhanoooI
13.08.2022 07:56
Как выделить массив ячеек в программе excel? (информатика 8 класс)...
daniildorunov
08.06.2021 13:46
Дан массив из 7 целочисленных элементов. элементы вводятся с клавиатуры (все элементы различны). найти максимальный элемент численного массива....
KsushaGromova
09.10.2022 01:48
Контрольная работа no 4 решение с использованием алгоритмов вариант 16 afn решить и оформить в ms word с использованием алгоритмов. в оформленной работе вывести текст и решение...
foxheb57
18.08.2021 23:20
Вкниге 20 страниц. на странице по 60 строк. в строке 40 символов. кодировка текста производится 8 битами книги в килобайтах...
gamsteriv
23.01.2021 18:08
1) известные связи между исходными данными и результатами записываются с соотношений на этапе … 1.программирования 2.алгоритмизации 3. 4.формализации 2)процесс проверки работо...
slovendim
14.06.2020 08:36
Разгадайте шифр там слово если что...
alexa7021
23.07.2020 18:45
Формулу при законов логики и составить таблицу истинности для исходной и формулы . составить по исходной формуле логические схемы. составить временную диаграмму исходной формулы....
JOKERLADGER
20.11.2022 23:38
Постройте эффективный алгоритм возведения числа x в степень n 152...
gjhjcznrj
19.01.2020 11:55
Как в ms excel изменится число, если ему присвоить процентный формат? выберите один ответ: a. добавляется знак % b. отрицательное число представляется положительным и добавляется...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.