На
Наталья
Заполнить матрицу (паскаль)
Заполнить матрицу за один проход по матрице:
Заполнить матрицу за один проход по матрице:
....
var b:array [0..9,0..9] of word;
....
for k:=0 to 9 do begin
b[0,k]:=k;
end;
for i:=1 to 9 do begin
for k:=0 to 9 do begin
b[i,k]:=abs(b[i-1,k]-1);
end;
end;
фрагмент заполнения думаю выглядит так, протесть, мне влом просто, может правильно, может нет, или полный код?