Delphi7

[Анастасья]

пусть дана матрица A(nxn)постройте вектор,каждый элемент которого равен количеству элементов в i-й строке матрицы А, не принадлежащий отрезку[0.10]воспользуйтесь функцией, делающей соответствующую проверку в i-q cтроке.....

program Project2;

{$APPTYPE CONSOLE}
 uses
  SysUtils,windows;
  const
  n=5;low=0;high=10;
  type tstr=array[1..n] of real;
  matr= array[1..n] of tstr;
  var
   a:matr;s:real; i:integer;
   PROCEDUR read_matr( var mt:matr);
    var i,j : integer;
     begin
      for i:=1 to  n  do
      for j:= 1 to  n do
      read(mt[i,j]);
      readln;
     end.
     PROCEDUR prin_matr(var mt:matr);
     var i,j :integer;
      begin
       for i:= 1 to  n do
        begin
          for j:= 1 to  n do
          write(mt[i,j]0;
          eriteln;
        end;
      end;

      FUNCTION TEST(var s:tstr;a,b:integer):integer;
      var count,i:integer;
      {не пойму как тут}

begin

  { TODO -oUser -cConsole Main : Insert code here }
end.
     {главная прога}
  for i:=1 to n do
  vector[i]:=test(A[i],low,high);
  writln('вектор');
  for i:1 to  n  do
  write( vector[i]:10);
  readln;
  end.

помогите пожалуйста дописать прогу и укажите на ошибки... Заранее благодарна..

[Don Karleone]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  N = 5;

type
  TVector = array [1..n] of integer;
  TMass = array[1..n, 1..n] of integer;

var
  Mas: TMass;
  Vector: TVector;
  i: integer;

// функция подсчета элементов в строке не принадлежащих интервалу [0..10]
function ELCount(vec: array of integer): integer;
const
  Min = 0;
  Max = 10;
var
  Count, i: integer;
begin
  Count:=0;
  for i:=0 to High(vec) do
    if (vec[i] < Min) or (vec[i] > Max) then Inc(Count);
  Result:=Count;
end;

begin
  // вводим элементы начальной матрицы Mas

  ...

  // получаем искомый вектор
  for i:=1 to n do
    Vector[i]:=ELCount(Mas[i]);

  // выводим Vector на экран

...

end.

вроде так, хотя я не проверял.