Массивке программа құрастыру керек?

Question

a1,…,an. Бүтін сандары берілген. Берілген тізбекте бірде – бір жұп сан тақ саннан кейін орналаспаса, онда тізбектің барлық теріс мүшелерін, әйтпесе оң мүшелерін шығару керек?

Answer 1

Program kvadrat; 

Var s, i , n: integer; 

Begin 

WriteLn (‘ n = ’) ; 

Readln (n); I:=1; S:=0; 

While i<=n do 

Begin 

S:=S + sqr (i); 

I:= i+1; 

WriteLn (‘ S=’ , S); 

End; 

End. 

http://talimger.org/load/ash/infor/olimpiada_a_dajyndalu_a_arnal_an_esepter_zhina_y/12-1-0-975