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

[Златачка]

Заменить отрицательные элементы одномерного массива А, состоящего из N чисел, на их абсолютные величины. Массив заполнить случайными числами из диапазона –10 до 10.

[Serge_Bliznykov]

ОМГ! учиться, значит, никто и не собирается?!

[Златачка]

у меня экзамен идет помогите пожалуйста

[Златачка]

выручите пожалуйста горю

[Serge_Bliznykov]

const N =10;
var A : array[1..N] of integer;
  i : integer;
begin
  Randomize;
  for i:=1 to N do A[i] := 10 - random(21);
 
  {печать исходного массива}
  WriteLn('Исходный случайный массив: ');
  for i:=1 to N do Write(A[i]:5,' ');
  WriteLn;

  for i:=1  to N do
    if A[i]<0 then A[i] := Abs(A[i]);

  WriteLn('Полученный в результатет массив: ');
  for i:=1 to N do Write(A[i]:5,' ');
  WriteLn;
  
  Readln
end.

p.s. пользуйтесь моей добротой. Хотя я сомневаюсь, что оценка, полученная нечестным путём принесёт Вам пользу...