Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
masaberegovenko
12.12.2021 20:28 •
Информатика
Заполнить массив из 15 элементов 0 и 1 при генератора случайных чисел. определить количество нулей и единиц в массиве
Показать ответ
Ответ:
баги82
06.07.2020 16:23
Var
i, n, e: integer;
k: array[1..15]of integer;
begin
for i := 1 to 15 do
begin
k[i] := random(2);
write(k[i],' ');
if k[i]=0 then n:=n+1
else e:=e+1;
end;
writeln;
writeln('Нулей: ',n,'; единиц: ',e)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sofiya84
30.09.2022 01:09
Дан двумерный массив из двух строк и пятнадцати столбцов. найти минимальную сумму элементов в двух соседних столбцах. , в вузе задали, а я не знаю, как решить, пыталась, не получается....
владгалимуллин
06.06.2021 03:51
Паскаль abc. массивом. даны 2 произвольных множества символов. из первого выделить буквы. из второго выделить цифры. вывести их множество....
nelli40
18.10.2022 05:06
Составить программу который в предложение заменить букву а на б...
petrovvalera05
26.11.2020 15:55
напишите здесь, а не давацте ссылку...
Kto6to
25.04.2021 23:17
Вычисли соседей введенного пользователем числа и выведи строку по образцу. Введите число: 678Число 678 на один больше числа 679 ии на один меньше числа 677Язык: Python...
elenak22
29.12.2020 11:51
Известны плотность и геометрические размеры (R-радиус основания и h-высота) цилиндрического слитка, полученного в металлургической лаборатории. Найти объем V, массу m и площадь...
nastademirhanova
05.05.2020 05:12
Вычислить произведение (1/1)*(2/3)*(3/5)*(4/7)* пока результат не станет меньше наперед заданного числа E. Решить в VBA Excel....
ваня20172
25.10.2022 20:13
Выберите ряд, в котором горные системы располагаются в порядке возрастания своего возраста: а) кордильеры-горы южной сибири-горы больших зондских островов б) большой водораздельный...
govnyaskaguly
25.10.2022 20:13
Висота однієї сосни дорівнює 21 м, іншої -28м. відстань між основами цих сосен 24 м.знайдіть відстань між верхівками...
Zopa43
25.10.2022 20:13
Три качества нравстенных моральных которые роднят тебя с твоей семьёй...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, n, e: integer;
k: array[1..15]of integer;
begin
for i := 1 to 15 do
begin
k[i] := random(2);
write(k[i],' ');
if k[i]=0 then n:=n+1
else e:=e+1;
end;
writeln;
writeln('Нулей: ',n,'; единиц: ',e)
end.