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

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

3.Вычислить среднее арифметическое отрицательных элементов матрицы. Закрасить отрицательные элементы.

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

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

uses crt;
const n=10;
var a:array[1..n,1..n] of real;
    i,j,k:byte;
    s:real;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=-10+21*random;
k:=0;
s:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if a[i,j]<0 then
     begin
      k:=k+1;
      s:=s+a[i,j];
      textbackground(12);
     end
    else textbackground(15);
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
if k>0 then s:=s/k;
textbackground(15);
write('Среднее арифметическое отрицательных=',s:0:2);
end.

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

В начале кода подключается библиотека crt, которая обеспечивает функции для работы с числами с плавающей точкой.
Затем определяется константа n, которая определяет размерность матрицы.
Далее объявляются переменные a, i, j, k и s. Переменная a представляет собой матрицу размером n x n, где каждый элемент имеет тип real (число с плавающей точкой). Переменные i и j используются для итерации по строкам матрицы, а переменная k используется для подсчета количества отрицательных элементов. Переменная s используется для хранения суммы отрицательных элементов.
Затем идет цикл, который заполняет матрицу случайными значениями от -10 до 21.
После этого начинается внутренний цикл, который проходит по каждой строке матрицы. Если элемент матрицы меньше нуля, то увеличивается счетчик k и сумма s увеличивается на значение элемента. Также выводится фон текста (цвет фона) и выводится значение элемента матрицы.
После завершения внутреннего цикла выводится значение k, которое является количеством отрицательных элементов. Если k больше нуля, то вычисляется среднее арифметическое отрицательных элементов, и выводится результат.
Наконец, выводится сообщение с результатом.