Сформировать случайным образом массив из 20 целых чисел из заданного отрезка и вывести на экран - Free Pascal

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

Программа должна сформировать случайным образом массив из 20 целых чисел из отрезка [-100; 100] и вывести элементы массива:а) в двух окнах: в одном – положительные числа, в другом – отрицательные числа; окончание работы программы при нажатии на клавишу «4»;

Решение задачи: «Сформировать случайным образом массив из 20 целых чисел из заданного отрезка и вывести на экран»

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

uses crt;
var
  a:array[1..20] of integer;
  i:integer;
begin
  randomize;
  clrscr;
  for i:=1 to 20 do begin a[i]:=random(201)-100;write(a[i],' ');end;
  window(1,3,80,4);
  textbackground(blue);
  textcolor(yellow);
  clrscr;
  for i:=1 to 20 do if a[i]>0 then write(a[i]:5);
  window(1,13,80,14);
  textbackground(green);
  textcolor(White);
  clrscr;
  for i:=1 to 20 do if a[i]<0 then write(a[i]:5);
  repeat until readkey='4';
end.

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

В этом коде используется язык программирования Free Pascal и он выполняет следующие действия:

Объявляет массив a размером 20 для хранения целых чисел.
Инициализирует переменную i для использования в цикле.
Использует функцию randomize для инициализации генератора случайных чисел.
Очищает экран с помощью функции clrscr.
Заполняет массив a случайными целыми числами в диапазоне от -100 до 200 с помощью цикла for и функции random.
Выводит значения массива a на экран с помощью цикла for и функции write.
Очищает экран и устанавливает цвета текста и фона для окна с помощью функций clrscr, textbackground и textcolor.
Выводит значения массива a, которые больше нуля, с помощью цикла for и функции write.
Устанавливает цвета текста и фона для окна с помощью функций textbackground и textcolor.
Выводит значения массива a, которые меньше нуля, с помощью цикла for и функции write.
Повторяет шаги с 8 по 10 до тех пор, пока не будет нажата клавиша 4.