массивы. паскаль.

[tanuschka]

подсчитать число положительных, отрицательных и нулевых компонент вещественного массива из 10 элементов. Если отрицательных элементов окажется больше , то поменять знаки всех элементов массива из 10 элементов. Если отрицательных элементов окажется больше, то поменять знаки элементов массива на противоположные.

[knight]

var
i, count: integer;
ar: array[0..9] of real;

begin
countPlus:=0;
countMinus:=0;

//заполним массив
for i := 0 to 9 do
  arr[i] := random(100)-100;

//подсчитаем кол-во отриц и пол.
for i := 0 to 9 do
 begin
 if ar[i] > 0 then countPlus := countPlus +1;
 if ar[i] < 0 then countMinus:= countMinus+1;
end;

//если отриц. больше, то меняем знак элементов массива
if countMinus > countPlus then
for i := 0 to 9 do
  arr[i] :=  arr[i] * (-1);

end;

[Serge_Bliznykov]

arr[i] := random(100)-100;

Это жесть!
Гарантирую, что положительных чисел в массиве не будет (случайное число от нуля до 99 и отнять от него 100) ;-)))
надо где-то так:

arr[i] := random(100)-50;

[knight]

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

Это жесть!
Гарантирую, что положительных чисел в массиве не будет (случайное число от нуля до 99 и отнять от него 100) ;-)))
надо где-то так:

arr[i] := random(100)-50;

Надо же чтобы что-нибудь не работало... Чтобы думалка включилась....

[tanuschka]

Спасибо большое! Сегодня дописала программу...

[qasw]

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

подсчитать число положительных, отрицательных и нулевых компонент вещественного массива из 10 элементов. Если отрицательных элементов окажется больше , то поменять знаки всех элементов массива из 10 элементов. Если отрицательных элементов окажется больше, то поменять знаки элементов массива на противоположные.

Тань скинь про-гу плизз

[ОДИНОЧЕСТВО В СЕТИ]

Если отрицательных элементов окажется больше , то поменять знаки всех элементов массива из 10 элементов. Если отрицательных элементов окажется больше, то поменять знаки элементов массива на противоположные.

короче в любом случае менять знаки!

var
i, countPlus,countMinus,countNul: integer;
ar: array[1..10] of real;

begin
countPlus:=0;
countMinus:=0;
countNul:=0;

//заполним массив
for i := 1 to 10 do
ar[i] := random(100)-50;

//подсчитаем кол-во отриц и пол.
for i := 1 to 10 do
begin
if ar[i] > 0 then countPlus := countPlus +1;
if ar[i] < 0 then countMinus:= countMinus+1;
if ar[i]=0 then inc(countnul);
end;

//если отриц. больше, то меняем знак элементов массива
if countMinus <> countPlus   then
for i := 1 to 10 do
ar[i] := ar[i] * (-1);

end;

[qasw]

тань у тебе случайно не 9 тый вариант по книге никлюдов . барщевский ??