Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 18.07.2016 19:41
- Информатика
- remove_red_eye 8107
- thumb_up 21
Ответы и объяснения 1
Const n=6;
var
a:array[1..n] of integer;
i,k,s:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do readln(a[i]);
s:=0;
for i:=1 to n do
begin
s:=s+a[i];
if a[i] mod 2 0 then k:=k+1;
end;
writeln('s = ',s);
if s mod 2 = 0
then writeln('Количество нечетных = ',k)
else writeln('Количество четных = ',n-k)
end.
Пример:
Исходный массив:
2
6
12
17
3
8
s = 48
Количество нечетных = 2
- 19.07.2016 04:22
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.