алгоритм вычисления суммы массива

Ответ от Николай[гуру]
пока не будет достигнут конеец массива выполнять:
1. сравнить текущий элемент с нулем - если больше вывести значение
2. увеличить счетчик элементов на 1

Ответ от Евгений Кульбако[новичек]
Pascal:
var
i: integer;
count: integer;
mas: array [1..100] of integer;
begin
// заполняем массив
...
// теперь считаем
count := 0;
for i:= 1 to 100 do
if (mas >= 0) then
count := count + 1
// Выводим count. в нем будет содержаться количество положительных чисел (вместе с нулями)
С:
int: i, count;
int mas[100];
begin
// заполняем массив
...
// теперь считаем
count = 0;
for (i=0, i<100; i++)
if (mas >= 0) then
count ++;
Ну вот примерно что-то так.

Ответ от Ѐоланд Картер[новичек]
предлагаю вариант попроще
если для паскаля:
////////
var
a: array [0..100] of integer;
n: integer;
i: integer;
s: integer; // если нужна будет сумма
BEGIN
readln (n); // количество элементов)
for i := 1 to n do
begin
readln ( a ); // прочесть элементы массива
end;
for i := 1 to n do
begin
if a > 0 then
begin
// дальше выбирай одно из действий
s := s + a; // если надо найти сумму
writeln ( a ); // если просто вывести на экран
end;
end;
END;

Ответ от 3 ответа[гуру]