Массивы в паскале, Сортировка линейного массива Опции

Помогите пожалуйста написать программу в Turbo Pascal:
"Задайте массив из 10 элементов с помощью датчика случайных чисел random, randomize и поменяйте знак всем нечетным элементам но противоположный. Выведите на экран исходный и измененный массивы."
Сама разобраться не могу. :(

Помогите пожалуйста написать программу в Turbo Pascal:
"Задайте массив из 10 элементов с помощью датчика случайных чисел random, randomize и поменяйте знак всем нечетным элементам но противоположный. Выведите на экран исходный и измененный массивы."
Сама разобраться не могу. :(

Вот, как то так

Код

const
  n = 10; // Кол-во элементов
  m = 10; // Максимальное значение элемента 0..m

var
  a: array[1..10] of integer;
  i: integer;

begin

  randomize;

  {Создаем случайный массив}
  for i:=1 to n do
    a[i] := m - random(m-1);

  {Выводим массив на экран}
  writeln('Source array:');
  for i:=1 to n do
    write(a[i],' ');
  writeln;

  {Для каждого нечетного элемента меняем знак}
  for i:=1 to n do
    if i mod 2 > 0 then a[i] := -a[i];

  {Выводим массив на экран}
  writeln('Target array:');
  for i:=1 to n do
    write(a[i],' ');
  writeln;

  write('Press Enter to exit . . .');
  readln;
  
end.

Рабочая програмка здесь array.zip

Сообщение отредактировал Tema567 - 12.3.2010, 9:24