работа с однородными массивами.

[arai uzbekova]

составить программу,которая вычисляет среднее арифметическое отрицательных элементов в одномерном массиве целых чисел из 5 элементов.Заполнить массив вводом из клавиатуры.помогите пожалуйста(я болела,и вообще не поняла эту тему)

[Sciv]

Эк сколько вас больных то повылазило... Ну вот Вам код:

var m: array [1..5] of integer;
    i,j: integer;
    s: real;

begin
  randomize;
  s:=0;  
  j:=0;
  for i:=1 to 5 do begin
    Write('Элемент массива №',i,': ');
    ReadLn(m[i]);
    if m[i]<0 then begin
      s:=s+m[i];
      inc(j);
    end;
  end;
  s:=s/j;
  WriteLn('Среднее арифметическое отрицательных элементов=',s:3:2);
  ReadLn;
end.

[arai uzbekova]

спасибо большоое)