вектор из столбца с наименьшим количеством положительных Опции

[18192123]

сформировать вектор, содержащий столбец матрицы с наименьшим количеством положительных элементов

program creat1;
uses crt;
const n=3;
type matr=array[1..n,1..n]of integer;  vect=array[1..n]of integer;
procedure input(var a:matr);
var i,j:1..n;
begin
writeln ('vvedite elementi');
for i:=1 to n do
for j:=1 to n do read (a[i,j]);
end;
procedure creat (a:matr; var s:vect);
var
   i,j:1..n;
   l,k:integer;
begin
for j:=1 to n do
begin
    s[j]:=0;
    k:=0;
    for i:=1 to n do
    begin
        if a[i]>0 then k:=k+1;
        s[j]:=s[j]+k;
    end;
end;
min:=s[1];
l:=1;
for j:=2 to n do
if s[j]<min then l:=j;
for i:=1 to n do writeln (s[i,l],' ');
end;
var a;matr;
    s:vect;
begin
clrscr;
input(a);
creat(a,s);
readkey;
end.

Сообщение отредактировано: 18192123 - 27.11.2006 19:20

[volvo]

Вот твоя ошибка:

procedure creat (a:matr; var s:vect);
var
   i,j:1..n;
   min, l,k:integer; { MIN не был определен }
begin
for j:=1 to n do
begin
    s[j]:=0;
    k:=0;
    for i:=1 to n do
    begin
        { *** if a[i]>0 then k:=k+1;
                 s[j]:=s[j]+k; *** }
        if a[i, j] > 0 then
          s[j] := s[j] + 1;
    end;
end;

min:=s[1];
l:=1;
for j:=2 to n do
if s[j]<min then l:=j;
for i:=1 to n do writeln (a[i,l],' '); { <--- Нужно А вместо S }
end;

[18192123]

Вот твоя ошибка:

Большое спасибо! Теперь программа работает просто отлично!!!