delphi массивы

[1nd1g0]

помогите плиз решить задачу, вообще без понятия как решать!

Даны четыре одномерных массива a,b,c,d. Получить три новых массива, содержащие количество положительных, отрицательных и нулевых элементов в каждом из этих массивов. Определение количества положительных, отрицательных и нулевых элементов оформить в виде подпрограммы-процедуры.

непонятно как оформлять в виде подпрограмы-процедуры! нужна ваша помощь

[baster128]

Что значит получить? Из тех, что даны или создать новые.Числа произвольные или как? Программы или процедуры?

[p51x]

непонятно как оформлять в виде подпрограмы-процедуры! нужна ваша помощь

procedure CountPos(a:TMass; var count:Integer);

Как-то так...

[1nd1g0]

Сообщение от baster128

Что значит получить? Из тех, что даны или создать новые.Числа произвольные или как? Программы или процедуры?

создать новые, числа произвольные, а вот программа или процедура хз, сам не понимаю, у меня написано черех дефис, подпрограммы-процедуры

[1nd1g0]

есть подпрограмма-функция, а тут видмио подпрограмма-процедура

[prof_gaming]

Создаешь четыре массива! и ещу три! ))
Создаешь процедуру для поиска!
{

k:=0;
for i:= 1 to n do
begin
if op[i]>0 then begin  k:=k+1; e[k]:=op[i];  end;{kolvo polozitelnih}
end;

z:=0;
for i:= 1 to n do
begin
if op[i]<0 then begin  z:=z+1; e1[z]:=op[i];  end;{kolvo otrichat}
end;

g:=0;
for i:= 1 to n do
begin
if op[i]=0 then begin g:=g+1; e2[g]:=op[i]  end; {kolvo nolei}
end;

}

[1nd1g0]

Сообщение от prof_gaming

Создаешь четыре массива! и ещу три! ))
Создаешь процедуру для поиска!
{
k:=0;
for i:= 1 to n do
begin
if op[i]>0 then begin k:=k+1; e[k]:=op[i]; end;{kolvo polozitelnih}
end;

z:=0;
for i:= 1 to n do
begin
if op[i]<0 then begin z:=z+1; e1[z]:=op[i]; end;{kolvo otrichat}
end;

g:=0;
for i:= 1 to n do
begin
if op[i]=0 then begin g:=g+1; e2[g]:=op[i] end; {kolvo nolei}
end;
}

спс, а как потом вывести массивы?

[Stilet]

вывести массивы?

На экран?

 for i:= 1 to n do write(e[i]:5);writeln;
 for i:= 1 to n do write(e1[i]:5);writeln;
 for i:= 1 to n do write(e2[i]:5);writeln;

[Indigo_best]

что-то запутался я с этим выводом, помогите плиз=)

[Indigo_best]

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