Question

Массив F (4,3) задан вещественными числами с клавиатуры. 1.Заменить элементы 1 строки на их кубы. 2.Вывести на экран массив в одну строку. 3.Определить, есть ли во 1-ом столбце элементы, кратные 10, вывести на экран их номера и значения.

Answer 1

===== PascalABC.NET =====

begin

 var m:= ReadMatrReal(4, 3);

 for var j := 0 to m.ColCount-1 do

   m[0,j]:=m[0,j]**3;

 m.ElementsByRow.Println;

 for var i := 0 to m.RowCount-1 do

   if Trunc(m[i,0]) mod 10 = 0 then

     Println(i+1, m[i,0]);

end.