Найти количество отрицательных элементов в массиве. - Turbo Pascal

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

Дан масив А(10). Найти количество отрицательных элементов. записать сначала положительные, а потом отрицательные элементы.

Решение задачи: «Найти количество отрицательных элементов в массиве.»

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

const n = 10;
var a: array[1..n] of integer;
    i, count: integer;
begin
  randomize;
  for i := 1 to n do begin
    a[i] := -10 + random(21);
    write(a[i], ' ');
  end;
  writeln;
  count := 0;
  for i := 1 to n do
    if a[i] < 0 then inc(count)
    else if a[i] > 0 then write(a[i], ' ');
  writeln;
  for i := 1 to n do if a[i] < 0 then write(a[i], ' ');
  writeln;
  writeln(count);
end.

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

Объявляются константы и переменные:
- n = 10 - размер массива
- a = array[1..n] of integer - массив для хранения чисел
- i, count = integer - счетчики для циклов
В блоке begin выполняется подготовка к выполнению программы:
- randomize - инициализация генератора случайных чисел
Заполнение массива a случайными числами от -10 до 10 с шагом 1: for i := 1 to n do begin a[i] := -10 + random(21); write(a[i], ' '); end;
Вывод на экран заполненного массива: writeln;
Инициализация счетчика отрицательных чисел: count := 0;
Вторая итерация по массиву для подсчета отрицательных чисел: for i := 1 to n do begin if a[i] < 0 then inc(count) else if a[i] > 0 then write(a[i], ' ') end;
Вывод на экран только отрицательных чисел: for i := 1 to n do if a[i] < 0 then write(a[i], ' ')
Вывод на экран количества отрицательных чисел: writeln(count);
Конец программы.