Delphi7 по главной программе

[Анастасья]

program Project23;
{программа позволяет построить вектор,
каждый элемент которого равен количеству элементов в i-й строке матрици А
(nxn) не принадлежащих отрезку[0,10].}
Код:

{$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;
procedure 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;
procedure 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]);
writeln;
end;
end;

FUNCTION TEST(var s:tstr;a,b:integer):integer; {функция проверяет принадлежит
ли элемент в i-ой строке матрици А отрезку [0,10]}
var count,i:integer;
begin
count:= 0;
for i := 1 to n do
if (s[i]< a) or (s[i]>b) then
count:= count+ 1;
test:= count;
end;
procedure Vvector (var vector:tstr); {процедура заполняет вектор}
var i:integer;
begin
for i := 1 to n do
read(vector[i]);
readln;
end;
begin
for i:=1 to n do
writeln('вектор' ,Vvector(?);{места где я торможу}
for i:=1 to n do
write( Vvector[?]:10); {и тут не хватает параметров}
readln
end.

[GetMax]

Я так и не понял зачем вам в программе функция TEST. Ну и проверили принадлежит ли элемент диапазону и что дальше делать с ним? Не понятно. Поэтому убираем ее, и в одну подпрограмму объединяем поиск количества элементов вне диапазона построчно и заносим их в вектор вот так:

const
n=5;
type tstr=array[1..n] of Integer;
matr= array[1..n] of tstr;
var
a:matr;
b:tstr;
i:Byte;
procedure read_matr( var mt:matr); {процедура вводит матрицу}
var i,j : integer;
begin
  for i:=1 to n do
  Begin
    Write('Введите ',i, 'строку: ');
    for j:= 1 to n do
    read(mt[i,j]);
  End;
end;
procedure 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]:3);
writeln;
end;
end;
procedure Vvector (var mt:matr;var vector:tstr; a,b:Byte); {процедура заполняет вектор}
var i,j,count:integer;
begin
  For i:=1 to N do
  Begin
    Count:=0;{при каждой новой строке обнуляем счетчик}
    For j:=1 to N do
    If (Mt[i,j] < a) or (Mt[i,j] > b) then Inc(Count);
    Vector[i]:=Count
  End;
end;
begin
Writeln('Матрица');
Writeln;
Read_matr(a);{Создаем матрицу}
prin_matr(a);{Выводим ее}
Readln;
Writeln;
Writeln('Вектрор');
Writeln;
Vvector(a,b,0,10);{Создаем вектор}
for i:=1 to n do
write( b[i]:3); {И выводим его}
readln
End.

[Serge_Bliznykov]

Тема названая опять неверно.

Код не оформлен тегами.

И, главное,
тема кросспост этой темы:
построить вектор по количеству элементов в i-й строке матрицы А (Delphi7 исправить ошибку)

ЗАКРЫТО!