Массив

[lolwto]

Дан массив Z(10) распечатать в массиве H сначала положительные а затем отрицательные элементы массива.

[Вадим Мошев]

А нули куда девать?

[Лубышев]

for i:=0 to length(H)-1 do
begin
if H[i]>0 then writeln(h[i]);
end;
for i:=0 to length(H)-1 do
begin
if H[i]<0 then writeln(h[i]);
end;

[Rififi]

А нули куда девать?

деноминировать, как в 98

[Вадим Мошев]

деноминировать, как в 98

Ты бы хоть пояснил, что 98 - год, а не винда. Мы ж на компьютерном форуме