//длинная арифметика
begin
var a := '123456789123456789';//ReadString();
var b := '123456789123456789123';//...
var l := Abs(a.Length - b.Length);
var source := l*'0';
if a.Length > b.Length then
insert(source, b, 1)
else
insert(source, a, 1);
var s := '';
var mem := 0;
for var i:=a.Length downto 1 do
begin
var c := a[i].ToDigit + b[i].ToDigit + mem;
mem := c div 10;
insert((c mod 10).ToString, s, 1)
end;
if (mem > 0) then insert('1', s, 1);
s.Println;
end.
namespace ConsoleApp2
{
class Program
{
static void Main(string[] args)
{
var a=new int[11];
var x=new Random();
for(int i=0;i<11;i++)
{
a[i]=x.Next(-50,50);
Console.Write(a[i]+" ");
}
Console.WriteLine("");
int max,min;
max=a[0];
min=max;
for(int i=0;i<11;i++)
{
if(a[i]>max) max=a[i];
if(a[i]<min) min=a[i];
}
Console.Write("min="+min+"; max="+max);
}
}
}