исправьте пл3 задачу

[pavel42]

Найти сумму нечетных элементов до первого положительного и количество отрицательных после него.

program zadacha1;
uses crt;
const n=10;
type mass=array[1..20] of integer;
var s1,s2,i:integer; x:mass;

procedure input(n:integer; var x:mass);
          begin
          for i:=1 to n do
          begin
          x[i]:=-random(10)+2;
          writeln(x[i]);
          end;
          end;

procedure p2(n:integer; x:mass; var s1,s2:integer);
          begin
          i:=1;
          s1:=0;
          s2:=0;

          if x[i] mod 2 <>0 then s1:=s1+x[i];
          while (x[i]<0) and (i<n) do
          begin
          inc(i);

          if x[i] mod 2 <> 0 then
          s1:=s1+x[i];
          end;
          while i<=n do
          begin
          inc(i);

          if x[i]<0 then inc(s2);
          end;
          writeln('б㬬*=',s1);
          writeln('Є®«ЁзҐбвў®=',s2);
          end;

begin
clrscr;
randomize;
input(n,x);
p2(n,x,s1,s2);
readln
end.

она почему то считает сумму чисел которые стоят на нечетных местах...а мне надо что бы она считала просто нечетные числа до первого положителнього

[pavel42]

кому не лень помогите )

[anGeee]

Немножко подправил вашу процедурку

procedure p2(n:integer; x:mass; var s1,s2:integer);
          begin
          i:=1;
          s1:=0;
          s2:=0;

          while (x[i]<0) and (i<n) do
          begin
           if x[i] mod 2 <> 0 then
            s1:=s1+x[i];
           inc(i);
          end;

          while i<=n do
          begin
          inc(i);
          if x[i]<0 then inc(s2);
          end;
          writeln('á㬬*=',s1);
          writeln('ª®«¨ç¥á⢮=',s2);
          end;

Изменения небольшие, думаю, комментарии необязательны.

[pavel42]

спасибо...то что надо )