Написать программу паскаль, которая вводит с клавиатуры одномерный массив из 10 целых чисел и вычисляет: Сколько элементов массива являются четными числами.
oriano
3
28.11.2021 11:48
0
Другие вопросы по теме Информатика
artemyaros2005oxkd2q
14.12.2019 11:36
cuxoyww
13.12.2019 09:13
Valentina54
13.12.2019 09:22
RMDEL
13.12.2019 09:24
1992svetlana
07.07.2019 06:10
Koshka1563
07.07.2019 06:10
малый7
06.10.2019 23:20
lilililiza
06.10.2019 23:20
bananxhik
06.10.2019 23:20
Популярные вопросы
- У кого начал формироваться подбородочный выступ а. питекантроп б. неандерталец...
2 - Районируйте данные страны: узбекистан, канада, аргентина, пакистан, иран, испания,...
2 - 2. Простим є словосполучення (0, ) A засіяти поле пшеницею Б дуже кумедний випадок...
3 - виявити закономірність розподілу солоності на поверхнях світового океану...
1 - іть будь ласка С р 8к ну іть люди...
2 - Встановити чи будуть числа 969 і 364 взаємно простими будь ласка вирішіть ато...
2 - с заданием, можно только 3 пункт...
3 - Расставьте пропущенные знаки препинания. Зима продвигаясь с севера захватывала...
1 - Що значат до нас історичні пісні?...
2 - туралы әңгіме құраңдар. Әңгіме құрауда сұраулы, хабарлы, лепті жана бұйрықты сөйлемдердің...
3
program test;
var i,k:integer;
a:array [1..10] of integer;
begin
k:=0;
for i:=1 to 10 do
begin
write ('a[',i,'] = ');
readln (a[i]);
if a[i] mod 2 = 0 then k:=k+1
end;
writeln;
writeln ('В массиве ',k,' элементов являются чётными числами')
end.