Задания в прикрепленном скрине!

Question

Информатика: Задания в прикрепленном скрине!

BPAN321 · Accepted Answer

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var A:=MatrGen(6,7,(i,j)->Sin(i+1)+Cos(3*(j+1)));
A.Println(10,6); Writeln(70*'-');
var B:=A.ElementsWithIndexes.Where(t->t[1].IsEven and t[2].IsEven)
      .Select(t->t[0]).ToArray;
B.Println;
var m:=B.Where(t->t>0).DefaultIfEmpty.Average;
Writeln('Искомое среднее равно ',m);
var f:=OpenWrite('MyFile.txt');
for var i:=0 to A.RowCount-1 do begin
    for var j:=0 to A.ColCount-1 do
      Write(f,A[i,j],' ');
    Writeln(f);
    end;
Writeln(f);
for var i:=0 to B.Length-1 do Write(f,B[i],' ');
f.Close;
end.

Из заданной матрицы а(6х7), элементы которой формируются по формуле а(i,j)= sin(i)+cos(3j), сформиро

Из заданной матрицы а(6х7), элементы которой формируются по формуле а(i,j)= sin(i)+cos(3j), сформиро

MOGZ ответил