Question

1)Заполнить одномерный массив 10-ю вещественными числами, вывести на экран массив в строку и в столбец.
2)Задать матрицу три на три с вещественными значениями, вывести её на экран. Каждый элемент массива увеличить в 2 раза, результат вывести на экран.

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrReal(10);
  Write('В строку: '); a.Println;
  Writeln('В столбец:');  a.PrintLines
end.

Пример
7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1 -6.3
В строку: 7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1 -6.3
В столбец:
7.6
-4.4
-7.2
-4.4
2.2
-3.1
9.6
8.9
-7.1
-6.3

----------------------

begin
  var a:=ReadMatrReal(3,3); a.Println(7,2); Writeln;
  a.Transform(t->2*t); a.Println(7,2)
end.

Пример
7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1
   7.60  -4.40  -7.20
  -4.40   2.20  -3.10
   9.60   8.90  -7.10

  15.20  -8.80 -14.40
  -8.80   4.40  -6.20
  19.20  17.80 -14.20