tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу, которая
Напишите программу, которая заполняет массив случайными числами на отрезке [2; 10] и считает отдельно количество четных и нечетных элементов
ЛенаС123
1 20.09.2019 06:30
20
Ответы
vitm1
01.09.2020 19:17
Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.
Пример:
2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Zhenkyaaaa
06.12.2021 13:45
Графическое представление табличных данных Определи, из каких элементов состоит диаграмма. Верных ответов: 3 линия тренда значения ячейки легенда настройка линии название...
genek711
10.05.2020 12:13
Различия и сходства условной и безусловной энтропии и информации. Когда величина энтропии источника не равна количеству информации приемника? А когда равна?...
Петр1234561
10.05.2020 12:13
очень нужно составить программу в паскале....
чувак65
10.05.2020 12:13
Как связаны между собой понятия «энтропия» и «информация»? Могут ли они быть уподоблены потенциальной и кинетической энергии?...
Dwtop1
10.05.2020 12:12
Как Вы думаете, для чего в теории информации используется понятие «энтропия», взятое из термодинамики? Указать, как минимум, две причины....
ilyagammershmi
10.05.2020 12:12
Почему в качестве количественной меры энтропии и информации выбрана не функция вероятности, а ее логарифм?...
dalnik38
08.06.2019 22:30
Вкчаю компьютер, а там вот такое окно подскажите что делать? вызывать специалиста дорого хочу разобраться. да и кнопка f8 не реагирует( вот такое там написано-a problem has...
Elika34
07.04.2020 18:05
с этим неравенством:121/36 - х...
meteleva06
07.04.2020 18:05
Русский язык, 2 класс! «Узнай» значимую часть слова, набранную заглавными буквами. ПОДсчитал. Приставка Корень ЗАгонять. Приставка Корень...
kati456miks
07.04.2020 18:05
ответе на задание, правила в закрепе))...
Популярные вопросы
Ревел гром, ярко блистали молнии, шуршать трава...
3
Оптикалық күші 5 дптр жұқа жинағыш линзадан 60см қашықтықта жарқыраған...
1
Разгадайте кроссворд. По вертикали: 1. Зимняя спортивная игра. 2. Наш....
2
Сочинение Нужны ли в жизни милосердие и сострадание...
1
Naydite odinakoviye grammaticheskoye svoystva...
2
Сравнить положение Москвы и Твери (у кого более выгоднее...
1
Решите уравнение √3x^2-4x-1=√2x^2-5x-3...
1
Найдите корень уравнения x^4-5x^2+4=0...
1
В каком из следующих утверждений содержится информация об урбанизации?...
3
до 15:00 нужно сделать по Кз времени ...
2
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.
Пример:
2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4