Посчитайте отрицательные числа в матрице - Turbo Pascal

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

Посчитайте отрицательные числа в матрице

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

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

var a:array[1..2,1..2] of real; i,j,c:integer;
begin
 for i:=1 to 2 do begin 
  for j:=1 to 2 do begin a[i,j]:=25-random(100)/50; write(a[i,j]:5:2); if a[i,j]<0 then inc(c); end; 
  writeln; 
end;
writeln('Отрицательных:',c); Readln;
end.

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

Создается переменная a, которая представляет собой матрицу размером 2x2.
Задаются три переменные i, j и c типа integer.
В цикле for выполняется два вложенных цикла for. Первый цикл идет от 1 до 2, а второй - от 1 до 2.
Внутри циклов присваивается значение a[i,j]=25-random(100)/50; каждой ячейке матрицы a. Здесь используется функция random(100)/50;, которая генерирует случайное число от 0 до 99 и делит его на 50, чтобы получить случайное число от 0 до 19. Затем это число вычитается из 25, чтобы получить случайное число от 0 до 24.
Выводится значение каждой ячейки матрицы с помощью функции write(a[i,j]:5:2);. Здесь 5:2 означает, что выводится значение пятого столбца и второго ряда.
Если значение ячейки a[i,j] меньше нуля, то увеличивается значение переменной c.
После окончания внешнего цикла for выводится строка writeln;.
Выводится значение переменной c с помощью функции writeln('Отрицательных:',c);.
Программа завершается с помощью функции Readln;.