1) дан массив из N элементов. определить сумму тех, которые четны и положительны.

2) Дан массив из n элементов. В нем четные числа заменить на 0, нечетные на - 1, вывести на экран монитора содержимое массива до обработки и после обработки.

Program N;

Var a, n, i, s: integer;

Begin Writeln ('n=') ; Readln (n) ;

s:=0;

For i:=1 to n do Begin a[i]:=random (100) ;

write (a:4) ; end; writeln; writeln ('izmenenni massiv') ; for i:=1 to n do begin If (a mod 2) = 0 then a:=0 else a:=1; write (a:4) ;

end;

readln;

End.