Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Olesqqqa
29.06.2021 16:42 •
Информатика
Составьте програму которая заполнят массив a[1..2] случайными целыми числами в диапозоне от 0 до 2 и выводит на экран количество равных элементов равных 1
Показать ответ
Ответ:
ольга1525
13.07.2020 01:44
Program enot;
Var a: array [1..2] of integer;
i:integer;
begin
for i:= 1 to 2 do
begin
a[i]:=random(3);
writeln(a[i]);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
svetlanasalamon
28.02.2023 11:38
N-factorial это произведение всех чисел от 1 до n. для задного числа n определите сколько нулей в конце десятичной записи n-factorial . в единственной строке входного...
ритуа
04.11.2020 07:44
Устройство для ввода звуковой информации? информатика....
BlockStriker1
04.11.2020 07:44
Вкакой системе счисления записаны следующие числа : 33+50=113...
krutikovaelizaozax2f
20.01.2020 03:28
Найти сумму всех элементов расположенных выше главной диагонали...
anna199015
05.11.2021 09:12
1. в массиве из 70 целых чисел найти количество элементов, кратных 3 2. проверить, что в массиве ровно 3 одинаковых максимальных числа 3. в массиве удалить все элементы,...
Ivan21101
08.06.2020 15:13
Создать таблицу для решение : (7 класс информатика и икт работа №8. знакомимся с электронными таблицами . №5 дракон сергей михайлович....
V4SLA
08.06.2020 15:13
(а+б)(а-б) потрібно зробити блок-схему алгоритму...
dimaloginkinozgu92
09.11.2021 00:18
Изучи Изображения определи условия в блоке ,при котором робот произнесёт...
Gagarinaa
21.03.2020 06:56
Сформировать массив из 25 случайных чисел из диапозона от 20 до 120. Найти произведения элемента массива с пятнадцатого по двадцатый включительно...
Unknown112
08.06.2020 03:58
Написать программу перевода вёрст в километры. Количество вёрст изменяется от 4 до 12, 1 верста= 1,067км. Рекомендуемый вид экрана: 4 вёрст=4,268км 5 вёрст=5,335км...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a: array [1..2] of integer;
i:integer;
begin
for i:= 1 to 2 do
begin
a[i]:=random(3);
writeln(a[i]);
end;
end.