MrAtarusama
Только в 5-9 классе наврядтль поверят в то, что он(она) сам накатал то, что вы(ты) описывал(а) ниже. У меня бы как минимум попросилиб переписать, а такое сложно запомнить, только если понять как работает.
MrAtarusama
А если ты не понимаешь в этой области, и тебе нужны только ответы? Просто принести учителю код, чтобы не получить двойку, и, желательно, чтобы он не догадался, что код чужой. В таком случае, скорее всего, выгоднее будет длинный и бесполезный (в меру), а не в 2-4 строки.
Answers & Comments
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=MatrGen(6,6,(i,j)->i=j?1:0); a.Println(2); Writeln;
var b:=MatrGen(5,6,(i,j)->(i*j=0) or (i=4) or (j=5)?1:0); b.Println(2)
end.
Результат
0 1 0 0 0 0
0 0 1 0 0 0
0 0 0 1 0 0
0 0 0 0 1 0
0 0 0 0 0 1
1 1 1 1 1 1
1 0 0 0 0 1
1 0 0 0 0 1
1 0 0 0 0 1
1 1 1 1 1 1