Массив

[Miller1045]

Постараюсь понятно объяснить задачу если что пишите уточню!!!
Написать программу с массивом
дан набор числе в случайном порядке от - 20 до +20 всего 10 чисел
и нужно заменить все положительные числа на +1 ,а отрицательные на -1....
Если честно я не знаю вообще реально ли такое но раз мне задали то думаю да...
Заранее спасибо

[Poma][a]

мдя.... и так уважаемый, вы 1 студент(ну либо школоло (без обид)), обратившыйся сюда не с приказом, поэтому можно и помочь... Но лучше хоть что-то делать самому

var
   a : array [1..40] of Integer;
   i : Integer;
begin
     Randomize;

     for i := 1 to 40 do
         a[i] := Random (41) - 20;

     for i := 1 to 40 do
         Write (a[i], ' ');

     for i := 1 to 40 do
         if a[i] > 0 then
            a[i] := 1
         else if a[i] < 0 then
              a[i] := -1;

         for i := 1 to 40 do
             Write (a[i], ' ')
end.

[Miller1045]

Так если бы я понял этот массив то проблем не было
когда все делали работу с массивом я делал вайл...а делал долго из за ошибки препода в промежутке..вот теперь и прошу помочь с массивом

[Poma][a]

я не экстрасенс, что вам не понятно?

[Miller1045]

Тут все понятно...я просто объяснил почему я не могу сам сделать...
хотя 1 вопросик есть почему изредка 0 проскакивает...мне ведь надо только -1 +1..
может я что то не понял конечно

[Poma][a]

Вы сказали заполнить массив случайными числами из диапазона -20 20 (там есть 0)
дальше все отрицательные заменить на -1 а положительные на +1, а 0 это вы куда отнесете?) к положительным или отрицательным?

[Miller1045]

А все огромное спасибо сразу не въехал)