begin
var n := ReadInteger;
var a := MatrRandom(n, n, -99, 99);
a.Println(4);
var arow := ArrGen(n div 2, 1, t -> t + 2);
var acol := ArrGen(n, t-> t);
a.MatrSlice(arow, acol).Rows.Select(t -> t.Average).PrintLines;
end.
На паскальабц.нет
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
begin
var n := ReadInteger;
var a := MatrRandom(n, n, -99, 99);
a.Println(4);
var arow := ArrGen(n div 2, 1, t -> t + 2);
var acol := ArrGen(n, t-> t);
a.MatrSlice(arow, acol).Rows.Select(t -> t.Average).PrintLines;
end.
На паскальабц.нет