Процедуры и функции Опции

[Art87]

Уважаемые форумчане. Помогите пожалуйста задачку решить.

[klem4]

вот так ?

procedure Additional(var A: array of integer; n: byte; var k:byte; var Col :real);
Var i, sum: integer;
begin
  writeln('Введите ', n , 'элементов массива');
  for i:=0 to pred(n) do
    read(A[i]);

  k:=0; sum:=0;
  For i:=0 to pred(n) do begin
    if A[i] < 0 then begin
      inc(sum, A[i]); inc(k);
    end;
  end;

  Col := abs(sum)/k;
end;

объяви глобальную переменную и передавай ее процедуре в параметр Col. После отработки процедуры эта переменная будет хранить значение abs(sum)/k;

Сообщение отредактировано: klem4 - 25.10.2005 8:15