tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вмассиве а(20) случайных целых
Вмассиве а(20) случайных целых чисел (диапазон чисел [-10..30] ) определить количество нечетных чисел
anuri1
3 16.06.2019 05:40
0
Ответы
Юля5451
13.07.2020 01:39
Var a: array [1..20] of integer; i, s: integer;
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
DayanaTolepber
18.04.2019 19:31
Uses crt; var i,j: integer; f: array[1..8] of string; p: array[1..5] of string; otm: array[1..8,1..5] of integer; sbu: array[1..8] of real; sbp: array[1..5] of real;...
EseniyaMaster
25.11.2020 06:50
Рис. 1. Инструмент «Линии» Рис. 2. Инструмент «Краска»Верных ответов: 2с инструмента «Линии» можно нарисовать любые линиис инструмента «Линии» можно нарисовать только...
jintonik2
25.11.2020 07:00
1 Изучи рисунок и определи, какие инструменты были использованы при его создании.Верных ответов: 2ластикмагиятекстформылинииштамп...
Martina17
25.11.2020 07:01
Для чего предназначены формы в Excel? для вывода данных на печатьдля хранения данныхдля ввода данных в удобном видедля пересылки данных по Сети...
Иван66665
25.11.2020 07:01
Разгадай слова!1. Разгадай ребус...
nastushakh20001
25.11.2020 07:01
Записать процедуру для выявления чисел Фибоначчи и проверить ее функционирование на примере чисел 800 220 145 Полученный ряд чисел записать...
Thanks2y
26.05.2020 23:37
11. Укажите, какая из перечисленных программ является текстовым редактором: 1. Paint; 2. Microsoft Word; 3. Power Point; 4. Microsoft Excel; 5. Проводник. 12 Минимальным...
vitaliy555555
09.02.2021 14:43
ответь на вопросы: a. Для чего используют ультразвук животные? b. Какие животные используют ультразвук? c. Что определяет ультразвуковой датчик? d. Для чего служит режим...
аля668
09.02.2021 14:43
Может ли ультразвуковой датчик обнаружить объект на расстоянии(отвечать «да» или «нет»): А) 5 см В) 300 см С) 1 см...
Артеммашар
24.08.2019 15:20
Скорость передачи данных по локальной сети 17 мбит в секунду. ученик перекачивал игру 19 минут. (это будет 2, 37 гб) сколько денег (в рублях) придется заплатить ученику...
Популярные вопросы
Что такое зоопарк, как часть ООПТ (особо охраняемых природных территорий)...
2
В уравнении х^2+рх+140=0 один из корней х1=7. Найди значение р и другой...
3
Ства (живопись, скульптура, музыка)?2. Н. А. Заболоцкий рисует в человеческих...
3
Вспомни об истории возникновения города и возведения кремля, о Красной...
2
В прямоугольном треугольнике ABC с прямым углом. С проведена высота...
2
1.Since the invention of the Internet/Internet the quality of communication...
3
нужно сделать второе задание...
1
Экономический район Казахстана, который имеет наиболее широкий спектр...
1
На какую высоту поднимет 100 м3 метров нефти за 16 минут насос, двигатель...
1
Перепишите предложения в страдательном залоге. 1. I clean my room...
3
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
end.