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

[Roshen]

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



Заранее большое спасибо

[Lektorfuja]

Массив это array.

[SASFM]

Если длина массива известно, то можно следующим образом:

var m:array[1..10]of integer;
    i,s,k:integer;
begin
  for i:=1 to 10 do
    read(m[i]);
  for i:=1 to 10 do
    begin
      if m[i]>0 then s:=s+m[i];
      if m[i]<0 then k:=k+1;
    end;
  writeln('Сумма положительных: ',s);
  writeln('Количество отрицательных: ',k);
end.