Сформировать целочисленный массив 20 элементов.
1) Подсчитать количество положительных элементов.
2) Подсчитать сумму нечетных элементов.

vara:array[1..20] of integer;b,c,i:integer; //b положительные c сумма нечетных i для циклаbeginb:=0;c:=0;for i:=1 to 20 do beginreadln(a[i]);if a[i]>0 then b:=b+1;if a[i] mod 2<>0 then c:=c+a[i];end;writeln(b);writeln(c);end.