Найти количество отрицательных элементов в матрице - Turbo Pascal (31051)

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

Дано натуральное число М. Выяснить, сколько отрицательных элементов содержит матрица А[i,j] i,j=1..n . , если a(ij)=cos(i^2+M) . Помогите пожалуйста решить задачу. Я вот пробовал изначально просто найти хотябы кол-во отрицательных, но получается какая-то чушь. И ввод матрицы почему-то только по отдельности каждый элемент.

uses crt;
var
 a:array[1..100,1..100] of integer;
i,j,k,n,m:integer;
 
begin
 clrscr;
 n:=3;
 m:=3;
 writeln('Массив -> ');
 for i:=1 to n do begin
  for j:=1 to m do 
 readln(a[i,j]); 
 end;
 
 k:=0;
 for i:=1 to n do 
 for j:=1 to m do
 if a[i,j]<0 then inc(k);
 
 write('Всего отрицательных элементов - ',k);
 
 readln;
end.

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

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

uses
  crt;
  
var
  a: array[1..100, 1..100] of real;
  i, j, n, k, M: integer;
 
begin
  clrscr;
  n := 3;
  write('Введите число M: ');
  readln(M);
  writeln('Массив -> ');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := cos(i * i + M);
      write(a[i, j]:8:2);
    end;
    writeln;
  end;
  k := 0;
  for i := 1 to n do 
    for j := 1 to n do
      if a[i, j] < 0 then inc(k);
  write('Всего отрицательных элементов - ', k);
  readln;
end.

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач, связанных с обработкой данных, включая работу с матрицами. Переменные в данном коде имеют следующие значения и названия:

a: это массив, который представляет собой 100x100 матрицу чисел типа real. Он используется для хранения значений, полученных из ввода пользователя.
i, j, n, k: это переменные типа integer, которые используются для индексации элементов массива a.
M: это переменная типа integer, в которую пользователь вводит значение M. Это значение используется в формуле для вычисления значения элемента матрицы a. Код начинается с инициализации переменной n, которая будет использоваться для определения размера матрицы. Затем пользователю предлагается ввести значение M, которое будет использоваться в формуле для вычисления значений элементов матрицы. Далее следует цикл, который выполняется для каждой строки матрицы. Внутри этого цикла происходит итерация по каждому элементу матрицы в текущей строке. Для каждого элемента выполняется вычисление значения с использованием формулы cos(i * i + M), где i - это текущий индекс строки, а M - значение, введенное пользователем. Результат вычисления сохраняется в соответствующем элементе матрицы a. После завершения итерации по строке происходит вывод значения элемента матрицы a с помощью функции write. Затем происходит переход к следующей строке матрицы и повторное выполнение цикла. После завершения итерации по всем строкам матрицы происходит подсчет количества отрицательных элементов в матрице. Для этого используется цикл, который итерируется по каждому элементу матрицы и проверяет, является ли он отрицательным. Если элемент отрицательный, то переменная k увеличивается на единицу. Наконец, выводится общее количество отрицательных элементов в матрице с помощью функции write. Затем происходит чтение ввода пользователя с помощью функции readln, чтобы завершить выполнение программы.