задача (pascal)

[counterparts]

всем привет) помогите пожалуйста решить задачу
Вычислить y=3*x, где x - колличество отрицательных элементов массива А. Для вычисления x использовать процедуру.

[Stilet]

И в чем сложности? Наработками можешь похвастаться?

[counterparts]

сложность в процедуре.

[Stilet]

Показывай )
Как-то же ты пробовал делать?

[counterparts]

var x,i:integer;
y:real;
a:array [1..10] of integer;
procedure sss(s:integer);
begin
for i:=1 to 10 do  
  begin
    if (a[i]<0) then s:=s+1;
  end;
end;

begin
for i:=1 to 10 do
    readln (a[i]);

незнаю как дальше)

[Pein95]

видоимо процедуру не сам писал... ну вот например так x:=s;

[Stilet]

procedure sss(var s:integer);

А дописать:

...
sss(x);write(x);readln;end.

А в целом верно.

[counterparts]

нет, процедуру сам писал. работает программа. про x:=s; незнал))