Предмет: Информатика,
автор: anime2007w
Дан массив A(N). Найти количество четных элементов и сумму положительных элементов.
Пример:
5
2 -4 3 5 -7
Ответ:
2 10
напишите фастом пжпжпжп
restIess:
язык программирования какой?
паскаль абц
помоги пж
в программе обязательно должен быть массив?
Ответы
Автор ответа:
1
var i,s,a,n,k: integer;
begin
read(n);
s:=0;
k:=0;
for i:=1 to n do begin read(a);
if a mod 2=0 then k:=k+1;
if a>0 then s:=s+a end;
writeln(k,' ',s)
end.
Интересные вопросы
Предмет: Математика,
автор: GardenWeasel01
Предмет: Русский язык,
автор: Dinara21112001
Предмет: Математика,
автор: mashapovetkina
Предмет: Математика,
автор: makarovroma