Массив F (4,3) задан вещественными числами с клавиатуры. 1.Заменить элементы 1 строки на их кубы. 2.Вывести на экран массив в одну строку. 3.Определить, есть ли во 1-ом столбце элементы, кратные 10, вывести на экран их номера и значения.
Ответы
Ответ дал:
0
===== 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.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
7 лет назад