Одномерный массив в паскале

[winnie*]

Дан одном.массив, удалить все элементы с дробной частью,заменить все положительные эл-ты на нули.

[ROMA2PVT]

Ну давай хвастайся наработками.

[Alex Cones]

If Frac(A[I]) Then

If A[I]>0 Then

[Grag]

for j:=N downto 1 do
  if frac(a[j])<>0 then
    begin
      for k:=j to N-1 do
        a[k]:=a[k+1];
      Dec(N) 
    end;
for j:=1 to N do
  if a[j]>0 then a[j]:=0;

[ROMA2PVT]

А когда репутацию снимаете подписываться может стоит?А?