Помогите решить, а то у меня не выходит, скоро котелок взорвется.

1

Ответы и объяснения

2013-12-15T09:57:36+00:00
Program zad_1; {задача про массив чисел}
uses crt;
const lengthOfZ = 10000;
var Z:array[1..lengthOfZ] of integer;
        i,sum:integer;

BEGIN
sum:=0;
for i:=1 to lengthOfZ do if (Z[i] >= 0) and (odd(Z[i])=false) then sum:= sum + Z[i]; 
END.