Для сложения дроби a/b и c/d, нужно привести их к общему знаменателю, на который разделить сумму приведенных числителейя, или a/b + c/d = (a*d+c*b)/(b*d)
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrReal(10);
Write('В строку: '); a.Println;
Writeln('В столбец:'); a.PrintLines
end.
<u>Пример</u>
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.
<u>Пример</u>
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
Var n, i: Integer;
sum: Double;
a: Array[1..1000] of Double;
begin
ReadLn(n);
for i:=1 to n do Read(a[i]);
sum:=0;
for i:=1 to 10 do sum:=sum+a[i];
a[8]:=sum;
WriteLn('--');
for i:=1 to n do Write(a[i]:0:3, ', ');
end.
Program z1;
var i:integer;
begin
for i:=99999 downto 723 do
if i mod 723=0 then
write (i,' ');
end.