одномерный массив в delphi

[viper92]

В массиве Y(n) найти по отдельности суммы и количества элементов, значения которых соответствует больше 1 и меньше -1

[vovk]

Сообщение от viper92

В массиве Y(n) найти по отдельности суммы и количества элементов, значения которых соответствует больше 1 и меньше -1

Это вы себе написали чтобы задание не забыть? ))

[viper92]

не=)) помогите плиз))

[vovk]

ну показывайте, как вы это делали, а мы поправим если что не так.

[viper92]

дело в том, что я эту тему проболел((не знаю как делать((

[Prime123]

...
for i:=1 to n do
begin
if a[i]>1 then begin
                  s1:=s1+a[i];//сумма элементов больше единицы
                  k:=k+1;//счётчик элементов больше единицы 
                  end;
if a[i]<-1 then begin
                  s2:=s2+a[i];//сумма элементов меньше -1
                  m:=m+1;//счётчик элементов меньше -1
                  end;
end;
...

s1,s2,k,m изначально должны быть равны нулю
Надеюсь с вводом массива и выводом сумм с количеством элементов у вас проблем нет