Дана последовательность целых чисел.Подсчитать среднее арифметическое отрицательных элементов.

[d_dima]

Писать в Паскале. Заранее спасибо

[Sciv]

паренек, ты принаглел уже, тебе и так без вопросов две задачи сделали, начинай уже сам башкой думать и руками шевелить. Тут не универсальный решатель задач для оболтусов.

[d_dima]

program q;
var mas: array[1..10] of integer;
    i, sum, n:integer;
    sa:real;
begin
n:=0;
sum:=0;
randomize;
for i:=1 to 10 do begin
mas[i]:=random(21)-10;
writeln('massiv:', mas[i]);
end;
for i:=1 to 10 do begin
if mas[i]<0 then
sum:=sum+i;
n:=n+1;
end;
writeln(sum);
writeln(n);
sa:=sum/n;
writeln('sred arifm - ', sa:10:2);
end.

Вот текст, напишите, пожалуйста, где я допустил ошибку?



___________
Неужели трудно понять/запомнить?!?!

Код нужно оформлять по правилам: тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)

Не забывайте об этом!

Модератор.

[Sciv]

Да вроде нигде. А какая ошибка?

[Serge_Bliznykov]

да ладно, "нигде"!
А суммируется в цикле что?!

if mas[i]<0 then
sum:=sum+i;
n:=n+1;
end;

кроме того, n+1 выполняется ЗА проверкой!! (нет begin end )

надо:

for i:=1 to 10 do begin
      if mas[i]<0 then begin
           sum:=sum + mas[i];
           n:=n+1;
      end;
end;

Это раз.
ну и второе. я бы перестраховался от деления на ноль, если в массиве не будет НИ одного отрицательного числа:

  writeln(sum);
  writeln(n);
  if n<>0 then begin
      sa:=sum/n;
      writeln('sred arifm - ', sa:10:2);
  end;

[Sciv]

да ладно, "нигде"!
А суммируется в цикле что?!

Ёженьки, и правда Дал бы в репу плюсом за "глазастость", да форум не дает