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

[enji4ka]

Здравствуйте! Помогите, пожалуйста с программой!
Условие:
Создать массив из 20 элементов и заполнить его случайными числами(с одним знаком после запятой, например 15,8) в промежутке [-100;100]. Вот эту часть я могу сделать.
Но!
-если позитивных чисел в массиве больше чем негативных, то знак после запятой у негативных заменить на 0 (например,-15.8 --> -15.0).
- а если негативных больше, то на 0 понять у позитивных ( 15.6 --> 15.0).

Помогите, пожалуйста, а то никак не выходит с этой частью задания

[Lem-ON]

For i:=1 to n do
if a[i]<0 then inc(neg) else inc(pos);
if pos>neg then
begin
for i:=1 to n do
begin
if a[i]>0 then 
begin
stroka:=inttostr(a[i]);
stroka[length(stroka)]:=0;
end;
end;

или наоборот

[enji4ka]

Помогите пожалуйста, если можете.. А то у меня действительно не получается, сколько не пробовала((

[Lem-ON]

долгий но рабочий способ

[Zart]

А на каком языке хоть писать?

[enji4ka]

На ТурбоПаскаль) Если есть какие-то идеи - пишите, буду очень рада их прочитать)*

[GetMax]

Читайте

Var
  Mas:array[1..10] Of Real;
  i,KolP,KolOtr:Byte;
begin
  Randomize;
  KolP:=0;
  KolOtr:=0;
  For i:=1 to 10 do
  Begin
    Mas[i]:=(-100+Random(201))/10;
    Write(Mas[i]:5:1);
    If Mas[i] < 0 then Inc(KolOtr)
    else
    If Mas[i] > 0 Then Inc(KolP)
  End;
  Writeln;
  If KolP >= KolOtr then
  Begin
    For i:=1 to 10 do
    If Mas[i] < 0 then Mas[i]:=Mas[i]-Frac(Mas[i])
  End
  Else
  If KolOtr > KolP then
  Begin
    For i:=1 to 10 do
    If Mas[i] > 0 then Mas[i]:=Mas[i]-Frac(Mas[i])
  End;
  Writeln;
  For i:=1 to 10 do Write(Mas[i]:5:1);
  Readln
End.

[enji4ka]

Спасибо огромное, вы мне очень помогли!
Желаю успеха в дальнейшем создавании программ)*