Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
RomqaShut
17.03.2021 05:33 •
Информатика
(pascal) : дан массив из 8 элементов, с датчика случайных чисел посчитать количество нечётных элементов.
Показать ответ
Ответ:
Cvertuhi
02.10.2020 03:10
Program enot;
Var a: array [1..8] of integer;
i,k:integer;
begin
k:=0;
for i:= 1 to 8 do
begin a[i]:= random(1000);
if a[i] mod 2 <>0 then k:=k+1;
end;
write(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Kirillf2006
28.03.2022 05:44
Кто ввел термин бит 1) Альберт Эйнштейн2) Вернер Бухгольц3) Бил Гейтс...
69Unicorn69
28.03.2022 05:44
Дайте определение Голосовой ввод текста на компьютере...
барынмай
25.09.2022 16:57
Задание №1. Определи: Истина или Ложь для каждого предложения. Память, которая используется для обмена информацией между процессором и ОЗУ называется КЕШ-память.ОЗУ(RAM)-...
gimnastikgirla
21.01.2021 15:49
С инженерного калькулятора...
JuliusM
16.06.2022 21:08
Учебник 256 страниц, на каждой странице 95 строк, 80 символов в каждой строке состоит из Учебника, сколько объем информации? Поверните нәтежиеті из кбайтқа. 1 кбайт=1024...
Dayun3212
16.06.2022 21:08
1. Напишите минимальный набор компьютера (основные устройства настольного компьютера) без которого не может работать устройство. 2. Какие устройства относится к устройствам...
vichkapetrenko
29.12.2022 14:22
Сконфигурировать работу таймера по следующим требованиям: Таймер тактируется от внешнего кварцевого генератора Таймер должен считать в 4 раза медленнее тактовой частоты...
qwaszxpolkmn129
07.08.2022 02:12
Составить таблицу истинности для следующих выражений. ...
kiakev
27.12.2020 00:31
добрые люди заранее Многоуровневая сортировкаКак изменить приоритет уровня сортировки?выделить уровень — выбрать команду «Параметры»Выделить уровень — выбрать команду...
Stan0
11.03.2021 20:57
4. Составь пысказывания в соответствиизаполни интеллект-карту,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a: array [1..8] of integer;
i,k:integer;
begin
k:=0;
for i:= 1 to 8 do
begin a[i]:= random(1000);
if a[i] mod 2 <>0 then k:=k+1;
end;
write(k);
end.