Очень срочно помогите написать программу! вот задача: Заполнить массив из 12 элементов...

Question

Очень срочно помогите написать программу!
вот задача:
Заполнить массив из 12 элементов случайными числами в интервале [-12..12] и выполнить инверсию для каждой трети массива.
Пример:
Исходный массив:
4 -5 3 10 | -4 -6 8 -10 | 1 0 5 7
Результат:
10 3 -5 4 | -10 8 -6 -4 | 7 5 0 1

Answer 1

Var 
 a: array[1..12] of integer; 
 i: integer;
begin 
 randomize;  
 for i:=1 to 12 do 
 a[i]:=random(12+12+1)-12; //Заполнение массива 
 writeln('Исходный массив: ');  
 for i:=1 to 12 do  
  write(' ',a[i],' '); //Вывод исходного массива 
 writeln(); //Для перехода на следующую строку  
 writeln('Результат: '); 
 for i:=4 downto 1 do 
  write(' ',a[i],' '); 
 for i:=8 downto 5 do 
  write(' ',a[i],' '); 
 for i:=12 downto 9 do  
  write(' ',a[i],' '); //Обратный цикли для каждой трети 
end.

Comments

что-то не так,не те числа выводит

---

нужно чтобы было как в примере ,чтобы в точности то же выводил

---

Написано же "заполнить массив случайными элементами"

---

ай ладн,спасибо