Помогитеее.!! Срочнооо.. Дан двумерныймассив массив a[n, m]. Определить количество элементов четвертого столбца массива, меньших 5.

// Программа и скриншот ее работы в приложенияхconst    T_max=12;var       i,j,s:byte;    m,n:byte;    T:array[1..T_max, 1..T_max]of integer;    begin  write('Введите значение m>4,n>4 для определения массива T[m,n]: ');  readln(m, n);  writeln('Заполнение массива случайными данными');    //начальные значения min и max  for i:=1 to m do begin    for j:=1 to n do begin      T[i,j]:=random(-79,79);// диапазон случайных чисел      write(T[i,j]:6);          end;    writeln();  end;  writeln();  writeln('Определить количество элементов четвертого столбца массива, меньших 5');  s:=0;  for i:=1 to m do    if (T[i,4]<5) then      s:=s+1;  writeln('Ответ: условию удовлетворяют ', s, ' элементов'); end.

ОТДЕЛ Задание+;

ИСПОЛЬЗУЕТ

  Матем ИЗ "...\Отделы\Числа\",

  Приём ИЗ "...\Отделы\Обмен\",

  Вывод ИЗ "...\Отделы\Обмен\";

 

ПЕР

  a: ДОСТУП К РЯД ИЗ РЯД ИЗ ЦЕЛ;

  n, m, сч1, сч2: ЦЕЛ;

  элементов: ЦЕЛ;

 

УКАЗ

  Вывод.Цепь("Введите n (>=5): ");

  n := Приём.Число();

  Вывод.Цепь("^Введите m (>= 5): ");

  m := Приём.Число();

  ЕСЛИ (n < 5) ИЛИ (m < 5) ТО

    Вывод.Цепь("^Некорректные параметры.")

  ИНАЧЕ

    СОЗДАТЬ(a, n, m);

    ОТ сч1 := 0 ДО n - 1 ВЫП

      ОТ сч2 := 0 ДО m - 1 ВЫП

        a[сч1, сч2] := УЗК(ВШИРЦЕЛ(Матем.случ() * 10))

      КОН

    КОН;

    элементов := 0;

    ОТ сч1 := 0 ДО n - 1 ВЫП

      ЕСЛИ a[сч1, 3] < 5 ТО УВЕЛИЧИТЬ(элементов) КОН

    КОН;

    Вывод.ЧЦел("^Элементов 4-го столбца, меньших 5: %d.", элементов, 0, 0, 0)

  КОН

КОН Задание.