Написанние программы в Паскале

ChatGPT для чего придумали?
Вот пример программы на языке Pascal, которая определяет, каких элементов больше (положительных или отрицательных) в массиве из 20 случайных чисел в интервале от -10 до 10:

 program PositiveOrNegativeCount; 
 
uses 
  SysUtils; 
 
const 
  ArraySize = 20; 
  MinValue = -10; 
  MaxValue = 10; 
 
var 
  arr: array[1..ArraySize] of Integer; 
  i, positiveCount, negativeCount: Integer; 
 
begin 
  Randomize; 
   
  // Заполняем массив случайными числами в интервале от -10 до 10 
  for i := 1 to ArraySize do 
  begin 
    arr[i] := Random(MaxValue - MinValue + 1) + MinValue; 
    Write(arr[i]:4);  // Выводим элемент массива для наглядности 
  end; 
   
  Writeln; 
   
  // Подсчитываем количество положительных и отрицательных чисел 
  positiveCount := 0; 
  negativeCount := 0; 
   
  for i := 1 to ArraySize do 
  begin 
    if arr[i] > 0 then 
      Inc(positiveCount) 
    else if arr[i] < 0 then 
      Inc(negativeCount); 
  end; 
   
  // Определяем, каких чисел больше 
  if positiveCount > negativeCount then 
    Writeln('Больше положительных элементов: ', positiveCount) 
  else if negativeCount > positiveCount then 
    Writeln('Больше отрицательных элементов: ', negativeCount) 
  else 
    Writeln('Количество положительных и отрицательных элементов одинаково: ', positiveCount); 
end. 

Эта программа создает массив случайных чисел, подсчитывает количество положительных и отрицательных элементов и выводит, каких чисел больше.