===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var A := ArrRandom(n, -99, 99);
A.Println;
var B := ArrRandom(n, -99, 99);
B.Println;
var s := (A + B).AsEnumerable;
Write('Min = ', s.Min, ', max = ', s.Max)
end.
Сложение в двоичной системе показано в прилагаемом файле.
Program summa;
var i:integer: s: real;
begin
s:=0;
for i:=1 to 37 do s:=s+1/i;
writeln('s=',s:5:2)
end.
Const
n=15;
var
a:array[1..n] of integer;
i,t:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to n do begin
a[i]:=Random(50)+10;
Write(a[i]:3)
end;
Writeln;
for i:=1 to n div 2 do
begin t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t end;
Writeln('Результирующий массив');
for i:=1 to n do Write(a[i]:3);
Writeln;
end.
Пример
Исходный массив
25 19 47 34 22 54 52 11 40 13 25 47 29 50 58
Результирующий массив
58 50 29 47 25 13 40 11 52 54 22 34 47 19 25
Первым действием узнаем во сколько раз изменилась скорость. Дальше смотрим на размер файла