Вопрос по информатике:
Значения элементов массива M(30) вводятся с клавиатуры. Верно ли, что количество положительных элементов в массиве и их сумма четны.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.06.2015 16:07
- Информатика
- remove_red_eye 7103
- thumb_up 14
Ответы и объяснения 2
Var
m:array[1..30] of integer;
i,n,s,q:integer;
begin
for i:=1 to 30 do
readln(m[i]);
for i:=1 to 30 do
if m[i] mod 2 = 0 then begin inc(q); s:=s+m[i]; end;
if (q mod 2 =0) and (s mod 2=2) then writeln('YES')
else writeln('NO')
end.
- 27.06.2015 14:51
- thumb_up 39
Program asd;
Const n=30;
var M:array[1..n] of integer;
i,k,s:integer;
BEGIN
Writeln('Заполните массив: ');
For i:=1 to n do
begin
Readln(M[i]);
end;
s:=0;
For i:=1 to n do
begin
If (M[i] mod 2=0) then
begin
inc(k);
s:=s+M[i];
end;
If (s mod 2=2) and (k mod 2=0) then
Writeln('Верно.')
else Writeln('Не верно');
end;
END.
- 28.06.2015 17:26
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.