1) дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов2) Дан массив целых чисел. Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах. 3) дан массив целых чисел. найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента. Примечание: при вводе необходимо учесть, что первый элемент не может быть отрицательным.

program zz1;

LABEL 1;

const n=3;

var mas:array[1 ... n] of integer;

i, s, k:integer;

begin

1:read (mas[1]);

if mas[1]<0 then begin write ('первый элемент не может быть отрицательным. повторите ввод'); goto 1; end;

for i:=2 to n do

read (mas[i]);

for i:=1 to n do

begin

if (mas[i]>0) and (mas[i] mod 2 = 1) then s:=s+mas[i];

if (mas[i]<0) and (mas[i] mod 2 = 0) then k:=k+1;

end;

writeln ('сумма положительных нечетных = ', s);

writeln ('количество отрицательных четных = ', k);

s:=0; k:=0;

for i:=1 to n do

begin

if (mas[i]>0) and (mas[i] mod 2 = 0) and (i mod 2 = 1) then s:=s+mas[i];

if (mas[i]<0) and (i mod 2 = 1) then k:=k+1;

end;

writeln ('сумма положительных четных на нечетных местах = ', s);

writeln ('количество отрицательных на четных местах = ', k);

s:=0;

for i:=1 to n do

begin

if (mas[i]>0) and (mas[i] mod 2 = 0) then s:=s+mas[i] else if mas[i]<0 then break;

end;

writeln ('сумма положительных четных до первого отрицательного = ', s);

end.