во вторых : это что значит ? в строке k и столбце k одинаковые элементы или что ?
да, в строке k и столбце k одинаковые элементы, я тоже так поняла........
а в ссылке, которую ты мне дал нет той задачки.....
klem4
8.12.2005 20:59
Ты почитай что там написано ... и решишь все с легкостью ;) Ты начни делать ... на конкретнеы вопросы ответим.
aka_kaka
8.12.2005 22:39
ну не могу, не могу...........
помгитеееееееееееееее!!!!!!!!!!!!
klem4
8.12.2005 23:27
эх ты .. задачки-то не сложные
1)
uses crt;
const n=3;
type TMx = array[1..n,1..n] of integer; var mx : TMx = ((2,2,4), (2,3,4), (3,4,5) );
procedure Print(x : TMx); var i,j : byte; begin for i := 1 to n do begin writeln; for j := 1 to n do write(x[i,j]:3,' '); end; end;
function Check(x : TMx) : byte; var i,j : byte; find : boolean; begin find := false; i := 1; while(i<=n) and not(find) do begin find := true; j := 1; while(j<=n) and find do if x[i,j] <> x[j,i] then find := false else inc(j); if not(find) then inc(i); end;
if find then Check := i else Check := 0; end;
begin clrscr; Print(mx); writeln; writeln(Check(mx)); readln end.
2)
uses crt;
const n=3;
type TMx = array[1..n,1..n] of integer; var mx : TMx = ((2,2,-4), (2,3,4), (3,-4,5) );
procedure Print(x : TMx); var i,j : byte; begin for i := 1 to n do begin writeln; for j := 1 to n do write(x[i,j]:3,' '); end; end;
function Sum(x : TMx; i : byte) : shortint; var j,s : byte; begin s := 0; for j := 1 to n do s := s + x[i,j]; Sum := s; end;
var i,j : byte; begin clrscr; Print(mx); writeln; for i := 1 to n do begin j := 1; while(j<=n) and (mx[i,j]>=0) do inc(j); if j<=n then writeln('i=',i,' sum=', Sum(mx, i)); end;
writeln;
readln end.
aka_kaka
9.12.2005 1:50
eeeeeeeeah!!!!!! готова расцеловать тебя!!!!!!!!!! пасиба огромнейшее!!!!!!!!! в буквальном смысле жизнь спасаешь
Altair
9.12.2005 1:57
оффтоп клем бабник klem4 : а сам - то
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.