Процедуры и функции Опции

[Selena]

Помогите, пожалуйста! Я никак не могу найти ошибку в проге.
Вот мое задание:
Дан вектор A[1:35]. Получить сумму и количество элементов, кратных 2, находящихся в диапазоне [-12:+7] и сумму и количество элементов, кратных 3 находящихся в диапазоне [5:21]. Получение суммы или количества элементов в заданном диапазоне и заданной кратности реализовать одной функцией и одной процедурой.

Программа счетает сумму и количество элементов неправилно.
Вот прога, только она пока без функции:

Program lab_6;
Uses WinCrt;
  Type
    mas1=array[1..50] of integer;
    mas2=array[1..10,1..10] of integer;
Var
sp1,sp2, s1, s2:Integer; A:mas1; kp1, kp2, k1, k2:Byte;
Procedure FormVek(na:Byte;Pa,Qa:integer;Var Aa:mas1);
 Var i:Byte;
 Begin
  For i:=1 to na do Aa[i]:=Random(Qa-Pa)+Pa;
 End;

Procedure VyvodVek(na:Byte;Var Aa:mas1);
 Var i:Byte;
 Begin
  For i:=1 to na do
  Write(Aa[i]:3,' ');
  writeLn('');
 End;

Procedure Summa1(Aa:mas1;na:byte;Var s1:integer; Var s2:integer; Var k1:byte; Var k2:Byte);
 Var i:Byte;
 Begin
  S1:=0;S2:=0;k1:=0;k2:=0;
  For i:=1 to na do
  Begin
  If (Aa[i]>=-12)or(Aa[i]<=7)
   Then  If Aa[i] mod 2=0
         Then Begin s1:=s1+Aa[i]; k1:=k1+1;end;
  end;

  For i:=1 to na do
  begin
  If (Aa[i]>=5)or(Aa[i]<=21)
   Then If Aa[i] mod 3=0
        Then begin s2:=s2+Aa[i];k2:=k2+1;end;
  end;
 end;



 Begin
 FormVek(35,-12,21,A);
 VyvodVek(35, A);
 Summa1(A,35,s1,s2, k1, k2); sp1:=s1; kp1:=k1;
 Summa1(A,35,s1,s2, k1, k2);sp2:=s2;  kp2:=k2;
 WriteLn('sp1= ', sp1:5);
 WriteLn('sp2= ', sp2:5);
 WriteLn('kp1= ', kp1:5);
 WriteLn('kp2= ', kp2:5);
 End.

.

[Selena]

Точно!!!!!!!! Я похоже презанималась. Ограмное спасибо.

Можно еще вопрос?

Тоже самое задание только сделанос помощью функции.
Как в нем посчитать количество элементов? Или это надо делать в отдельной функции?

Program lab_6;
Uses WinCrt;
  Type
    mas1=array[1..50] of integer;
    mas2=array[1..10,1..10] of integer;
  Var
  sp1,sp2, s1, s2:Integer; A:mas1; kp1, kp2, k1, k2:Byte;

Procedure FormVek(na:Byte;Pa,Qa:integer;Var Aa:mas1);
 Var i:Byte;
 Begin
  For i:=1 to na do Aa[i]:=Random(Qa-Pa)+Pa;
 End;

Procedure VyvodVek(na:Byte;Var Aa:mas1);
 Var i:Byte;
 Begin
  For i:=1 to na do
  Write(Aa[i]:3,' ');
  writeLn('');
 End;

 Function Summa2(Aa:mas1; na,priz:Byte):Integer;
  Var i:byte; s1,s2:Integer;
  begin
   S1:=0;S2:=0;
   For i:=1 to na do begin
    If (Aa[i]>=-12) and (Aa[i]<=7) and ((Aa[i] mod 2)=0) then
      s1:=s1+Aa[i];
    If (Aa[i]>=5) and (Aa[i]<=21) and ((Aa[i] mod 3)=0) then
      s2:=s2+Aa[i];
                     end;
  Case priz of
  1: Summa2:=s1;
  0: Summa2:=s2;
  end;  end;



 Begin
 FormVek(35,-12,21,A);
 VyvodVek(35, A);
 sp1:=Summa2(A,35,1);
 sp2:=Summa2(A,35,0);
 WriteLn('sp1= ', sp1:5);
 WriteLn('sp2= ', sp2:5);
 End.

.