Значения элементов массива M(30) вводятся с клавиатуры. Верно ли, что количество положительных элементов в массиве и их сумма четны.
Значения элементов массива M(30) вводятся с клавиатуры. Верно ли, что количество положительных элементов в массиве и их сумма четны.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы