tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Склавиатуры вводится число
Склавиатуры вводится число n ,а за ним n целых значений элементов массива посчитайте кол-во четных чисел стоящих на нечетных местах в массиве
KarinaCorso
1 22.06.2019 15:20
0
Ответы
lisacat2000
17.07.2020 19:05
Var n,i,s:integer;
a:array[1..100] of integer;
begin
read(n);
for i:=1 to n do begin
read(a[i]);
if ((i mod 2)=1) and ((a[i] mod 2)=0) then
s:=s+1;
end;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Знання6666
04.04.2019 09:56
Контрольная работа.! французский язык....
kazan20001202
04.04.2019 09:55
Сделать второй и третий номер. у нас информатик ничего нормально объяснить не может, ничего не !...
timabro12
21.02.2021 13:46
Вычислите значения выражений на языке Python: à=1b3−6,4(b+8)+3b 94 d=1a3b−2ab2(a+b) 7 32 q=3a −2ab+b 2a(3a−b) k=x3−4xy(x+y2) h=u+1,7*(2u+3) пишите если знаете....
миккимаус1890677
23.12.2019 21:31
Pascal для массива x из 30 элементов найти наибольший элемент, после чего нормировать все элементы массива, поделив их значения на значение наибольшего элемента. значение наибольшего...
Irrishka2005
25.05.2020 13:25
В данном фрагменте программы выполняется:A) поиск четных значенийБ) подсчет суммы элементов, больших 7В) подсчет количества элементов,больших 7Г) подсчет количества элементов,...
galinamosyagina
26.05.2019 22:30
Фаил объёмом 450 байт был скачан стандартным модулем загнрузги браузера за 10 сек. чему ровна скорость скачивания...
Gesha11
14.06.2019 11:20
Описать функцию square(k) логического типа, возвращающую true, если целый параметр k( 0) является квадратом некоторого числа, и false в противном случае. паскаль...
vadi96356
14.06.2019 11:20
Составить алгоритм решения согласно своему варианту и написать программу на языке с++. в отчете предоставить блок-схемы функции : вводится последовательность целых чисел, 0 –...
lightningwhite
14.06.2019 11:20
1.алфавит племени пульти содержит 64 символа. каков информационный вес символа этого алфавита? 2. инф. сообщение объёмом 560 битов состоит из 80 символов. какова мощность алфавита...
79521312181
16.04.2019 17:39
На двух токах вместе есть 990 т пшеницы. сколько центнеров на каждом из них , если на первом на 20 % больше , чем в другом....
Популярные вопросы
Мама уже ругается что долго делаю((...
2
Между населёнными пунктами A, B, C, D, E, F, Z построены дороги с односторонним...
1
В художественной литературе найти 6 сложных предложений с союзом и с предлогами...
1
Решите уравнения2000-х = 550+5505430-у=2108...
1
Найдите катет прямоугольного треугольника, если его гипотенуза равна 13 см,...
2
Используя рисунки в тексте параграфа, охарактеризуйте особенности внешнего...
2
серед 27 студентів групи з яких 10 дівчат розігрується 7 білетів на концерт...
2
РЕШИТЕ УДОБНЫМ , 18*3+18*7 и 74*16-74*15 и 99*5 и 32*15....
3
Используя желтый свет с длиной волны 590 нм от газоразрядной трубки натрия,...
2
Как происходит увольнение по контракту?...
2
a:array[1..100] of integer;
begin
read(n);
for i:=1 to n do begin
read(a[i]);
if ((i mod 2)=1) and ((a[i] mod 2)=0) then
s:=s+1;
end;
writeln(s);
end.