Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Shariknt
26.06.2021 18:41 •
Информатика
Заполнить массив из 15 элементов 0 и 1 при генератора случайных чисел. определить количество нулей и единиц в массиве
Показать ответ
Ответ:
клим512
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 оценок)
Популярные вопросы: Информатика
алина3894
05.10.2022 01:43
Составить программу которая определяет длину окружности и площадь круга одного и того же заданного радиуса r...
olinikvioletta62
28.02.2021 15:12
Исполнитель черепашка перемещается на экране компьютера, оставляя след в виде линии. в каждый конкретный момент известно положение исполнителя и направление...
laralarisa
25.12.2020 17:18
Выполните с блок схемы нужно я на контрольной...
мосщчщчпзчх
04.03.2020 02:42
Почему мой компьютер после пкереустановки windows 7 не видео wifi...
baklazhan2004
11.03.2021 08:17
Какая информация храниться в архиве по : фотографии, письма, школьные журналы?...
Vagapova1
11.03.2021 08:17
Всем нужно написать такую программку: пользователю нужно ввести одно число, (неважно какое) а программка делает такие вычисления по такой формуле: (а) - неизвестное число которое...
Maximp190302
09.10.2020 10:04
Составьте программу заполняет массив случайными целыми числами в диапазоне от 0 до10 и находит максимальный элемент массива среди элементов с четными индексами...
Osdit
09.10.2020 10:04
Информационное сообщение объёмом 300 бит содержит 100 символов.какова мощность...
йцуячс2
15.05.2020 00:35
Алгначсместиться в точку (4,0)опустить перосместиться в точку (0,2)сместиться в точку (-3,0)сместиться в точку (3,3)сместиться в точку (3,-3)сместиться в точку (-3,0)сместиться...
ilona122
20.10.2020 02:08
А-частица (ядро атома гелия), кинетическая энергия которой 8*10^-17 дж, влетает в однородное магнитное поле с индукцией 0,1 тл перпендикулярно его силовым линиям. определите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.