<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
С помощью компьютерных программ можно набирать текст, изменять его не
переписывая, сохранить его в памяти компьютера для хранения,
отпечатать на принтере копии без повторного ввода и отправить этот
текст с помощью электронной почты на другие компьютеры.
1- смотришь в интернете сеансы в кино
2-выбираешь нужное кино
3-идёшь за билетами
4-покупаешь билет для 2 ух человек
5-ждёшь сеанса!
1 получается 3
2 получается 9
1 получается 11
2 получается 121
1 получается 123
бинго