Список предметов

Математика
Литература
Алгебра
Русский язык
Геометрия
Английский язык
Химия
Физика
Биология
Другие предметы
История
Обществознание
География
Українська література
Українська мова
Казак тили
Беларуская мова
Информатика
Экономика
Право
Значения элементов массива M(30) вводятся с клавиатуры. Верно ли, что количество положительных элементов в массиве и их сумма четны.
спросил от в категории Информатика

1 Ответ

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.




ответил от
x
...