Циклический алгоритм в паскале

[Help my brain]

нужно составить программу для паскаля, вот задача:

Задана последовательность из n целых чисел. Определить среднее арифметическое отрицательных элементов последовательности.(срочно)плиз

[Arigato]

Сообщение от Help my brain

(срочно)

Срочно - это в раздел Фриланс.

[Help my brain]

ну как срочно) могу и подождать=) не на столько срочно=) я тут первый раз, ничего не знаю еще. говорят тут могут помоч, а я в информатике плохо...

[Don Karleone]

Sum:=0;
Count:=0;
for i:=1 to n do
   if A[i] < 0 then
                      begin
                        Sum:=Sum + A[i];
                        Inc(Count);
                      end;
if Count <> 0 then writeln(Sum\Count:1:3);

[Help my brain]

Спасибо большое=)
... щас буду разбираться

[Help my brain]

Извините... я ошибку в теме сделал. Нужно составить программу используя оператор цикла с параметром.

[Don Karleone]

Сообщение от Help my brain

Извините... я ошибку в теме сделал. Нужно составить программу используя оператор цикла с параметром.

Ааааа, ну ща будем думать.

[Help my brain]

Вопрос все еще актуален. я уже все перепробовал ничего не получается... информатичка еще ниче не обьясняет. кому не трудно отпишите ответ пожалуйста.