Описать функцию, определяющую является ли сумма элементов одномерного массива положительным числом - PascalABC.NET

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

Помогите, пожалуйста, написать программу. "Описать функцию, определяющую является ли сумма элементов одномерного массива А(К), K<=50 положительным числом".

Решение задачи: «Описать функцию, определяющую является ли сумма элементов одномерного массива положительным числом»

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

type
  vector = array[1..50] of integer;
 
function IsPositive(k: byte; a: vector): boolean;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 1 to k do
    sum := sum + a[i];
  ispositive := sum > 0
end;
 
var
  K, i: byte;
  A: vector;
 
begin
  repeat
    write('K = ');
    readln(k);
    writeln
  until k < 51;
  for i := 1 to k do begin
    a[i] := random(21) - 10;
    write(' ', a[i])
  end;
  writeln;
  if IsPositive(k, A) then writeln('Сумма положительна')
  else writeln('Сумма не положительна')
end.

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

В данном коде определен тип данных вектор - это одномерный массив целых чисел размером от 1 до 50. Далее определена функция IsPositive, которая принимает два аргумента: k - количество элементов для которых необходимо проверить сумму, и a - сам массив. Внутри функции происходит инициализация переменной sum (сумма) в 0, а затем в цикле от 1 до k происходит проход по всем элементам массива и их сумма добавляется к переменной sum. Затем проверяется условие sum > 0 и результат сохраняется в переменную ispositive (истина, если сумма положительна, иначе ложь). Далее в основном блоке кода происходит считывание значения переменной K (количество) с помощью цикла repeat-until, пока значение не будет в диапазоне от 1 до 50. Затем в цикле for от 1 до k происходит заполнение массива A случайными числами от -10 до 10 с шагом 21. После вывода массива на экран, вызывается функция IsPositive с аргументами k и A, и результат выводится на экран. Если сумма положительна, выводится сообщение Сумма положительна, иначе Сумма не положительна.