Question

Написать программу в паскале.Как можно быстрее!!!!!!!!!!!
Задана квадратная матрица A размером N x N (N<=10), со-стоящая из действительных элементов. Найти среднее арифметическое элементов каждой из четных строк этой матрицы.

Answer 1

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.

На паскальабц.нет