[scroyler]

помогите решить 2 элементарные задачки

1.Дан массив , сколько в нем положительных элементов? Найти их сумму
2.Дан массив,каких элементов больше? положительных или отрицательных?

Спасибо)

[Pilot_Red]

в чем требуется помощь?? На чем встали??

[lmikle]

Видать на циклах
Совсем народ оленился...

1.

Код:

var
  A : Array Of Integer;
  I : Integer;
  Count : Integer;
  Sum : Integer;
begin
  Count := 0;
  Sum := 0;
  For I := Low(A) To High(A) Do
    If A[i] >= 0 Then
      Begin
        Inc(Count);
        Inc(Sum,A[i]);
      End;
end;

2.

Код:

var
  A : Array Of Integer;
  I : Integer;
  Positive, Negative : Integer;
begin
  Positive := 0;
  Negative := 0;
  For I := Low(A) To High(A) Do
    If A[i] >= 0 Then Inc(Positive) Else Inc(Negative);
  If Positive > Negative Then ... Else ...;
end;

А теперь разбирайся с этим