Дано 12 чисел. Напечатать сначала все отрицательные из них, а затем все остальные - Pascal ABC

Формулировка задачи:

Дано 12 чисел. Напечатать сначала все отрицательные из них, а затем все остальные. Задать массив в двух вариантах: исходные массивы задать типизированными константами и элементы исходных массивов ввести через оператор ввода.

Решение задачи: «Дано 12 чисел. Напечатать сначала все отрицательные из них, а затем все остальные»

Листинг программы

const
  a: array[1..12] of integer=(4,6,-2,0,-7,5,3,7,-1,2,4,5);
var
  i: integer;
begin
  for i:=1 to 12 do
    if a[i]<0 then write(a[i],' ');
  for i:=1 to 12 do
    if a[i]>=0 then write(a[i],' ');
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Переменная a представляет собой массив из 12 чисел. Каждое число в массиве представлено целым числом. Значения чисел в массиве заданы следующим образом: 4, 6, -2, 0, -7, 5, 3, 7, -1, 2, 4, 5. Для решения задачи, код использует два цикла. Первый цикл выполняется 12 раз, так как в массиве 12 элементов. Внутри первого цикла проверяется условие: если значение элемента массива меньше нуля, то это значение выводится на экран через функцию write. Во втором цикле выполняется та же операция, но уже для элементов массива, значения которых больше нуля. Таким образом, данный код сначала выводит на экран все отрицательные числа из массива, а затем все остальные числа, которые не являются отрицательными.