Определить сумму и количество отрицательных элементов в массиве - Pascal ABC

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

Задан одномерный массив вещественных чисел длины n. Определить сумму и количество отрицательных элементов в массиве.

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

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

program pr;
const
  Csize = 100;
type
  arr = array [1..Csize] of real;
var
  i, n, cout: integer;
  sum: real;
  a: arr;
begin
  cout := 0;
  sum := 0;
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(21) - 10;
    write(a[i]:3);
  end;
  for i := 1 to n do
    if a[i] < 0 then
    begin
      sum := sum + a[i];
      cout := cout + 1;
    end;
  writeln;
  writeln('Количество отрицательных элементов: ', cout);
  writeln('Сумма отрицательных элементов: ', sum);
end.

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

В программе объявлены переменные: Csize (константа, равная 100), arr (тип данных - массив целых чисел), i (целое число), n (целое число), cout (целое число), sum (реальное число), a (массив целых чисел).
Задается размер массива n.
Вычисляется сумма всех элементов массива и присваивается переменной sum.
Выводится сообщение «Введите размер массива».
Считывается размер массива n.
Запускается цикл for, который выполняется n раз.
В каждой итерации цикла переменная i принимает значения от 1 до n.
В каждой итерации цикла переменная a[i] принимает случайное значение от -10 до 20 (включительно) с помощью функции random(21) - 10;.
Выводится значение a[i].
Если значение a[i] меньше нуля, то:
- переменная sum увеличивается на значение a[i];
- переменная cout увеличивается на 1.
После завершения цикла выводится сообщение «Количество отрицательных элементов: », значение переменной cout.
После завершения цикла выводится сообщение «Сумма отрицательных элементов: », значение переменной sum.