Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
zhovnovich
27.09.2020 12:27 •
Информатика
Массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 . вывести на экран, посчитать количество нечетных чисел
Показать ответ
Ответ:
elmira64
06.07.2020 16:49
Const N = 20;
Var i,k:integer; m:array [1..N] of integer;
Begin
randomize;
for i:=1 to N do begin
m[i]:=random(101) - 50;
writeln(m[i]);
end;
for i:=1 to N do
if m[i] mod 2 <> 0 then
inc(k);
writeln('Kol-vo netchetnih = ',k);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
verazotova04
21.05.2020 05:15
Посчитайте объем файла с изображением шириной 640 пикселей,высотой 480 пикселей, и цветом 100 цветов.Объем представить в количестве Кбайт с реением,желательно с обьяснениями...
Animashka11
29.05.2022 08:54
8. Многостраничный документ состоит из страниц, полностью заполненных текстом, причем на каждой странице ровно 1024 символа. Документ сохранили с использованием двухбайтной кодировки...
zxcvbnm210404
16.05.2023 11:47
Решите и 2 с объяснением кому не сложно,очень надо...
lecsika
20.03.2021 16:10
Вариант 16 1) 11022) 303, 3) 196 4) 72,6 5) 1111 + 10001000 перводы с вычисления...
borodayegaliaf
01.01.2021 18:42
Казахстана случайно написало информатика...
AfinaBi
11.03.2020 05:35
Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 640×256 и палитрой из 2 цветов....
artemmishin7777777
15.06.2021 02:28
Берильген макал-мательдн магынасын тусындир. енбегы аздын онбегы аз. енбегине карай-курмет, жасына карай-ызет. по казахскому ! !...
fhdhkfhydkfhs
15.06.2021 02:28
Почему изменчивость и наследственность всегда изучаются совместно...
ilyakylloRU
15.06.2021 02:28
Как какому роду относится песня про купца калашникова а) эпическому б) драматическую в) лирическому г) лиро-эпическому...
lizcarpova
15.06.2021 02:28
Буквы слова компьютер перемешивают и случайным образом выкладывают в ряд.какова вероятность того что снова получится это слово...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var i,k:integer; m:array [1..N] of integer;
Begin
randomize;
for i:=1 to N do begin
m[i]:=random(101) - 50;
writeln(m[i]);
end;
for i:=1 to N do
if m[i] mod 2 <> 0 then
inc(k);
writeln('Kol-vo netchetnih = ',k);
readln;
end.