// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
begin
var n:=ReadInteger('Число элементов массива');
var a:=ArrRandom(n,-60,140); a.Println(', ');
WritelnFormat('max={0}, min={1}',a.Max,a.Min)
end.
<u><em>Тестовое решение:</em></u>
Число элементов массива 10
-26, 134, 124, 103, 25, 31, 41, -31, 57, 46
max=134, min=-31
Program maxmin;
var x, y, z: integer;
max, min: integer;
begin
readln(x, y, z);
max:=x+y+z;
if x*y+z>max then max:=x*y+z;
if sqr(x)+sqr(y)-z > max then max:=sqr(x)+sqr(y)-z;
writeln(max);
min:=<span>x+y+1;
</span>if x*y*z<min then min:=x+y+1;
write(min+1);
end.
Протокол передачи данных, TCP/IP
1. да; 2. нет; 3. картинка; 4. да; 5. да обязательно; 6. да
var
i1,i2,i3,i4,i5,i6:Longint;
begin
For i1:=0 to 9 do
For i2:=0 to 9 do
For i3:=0 to 9 do
For i4:=0 to 9 do
For i5:=0 to 9 do
For i6:=0 to 9 do
if i1+i2+i3=i4+i5+i6 then Writeln('счастливый билет':i1,i2,i3,i4,i5,i6);
Writeln('все миллионеры :D')
end.