{Uzdeveums: Sakartot vesalu skaitlu masivu ar Binaras ievietosanas metodi
Ieejas dati: Skaitlu masivs patvaliga seciba, tiek ievadits no klaviaturas
Izejas dati: Sakartots skaitlu masivs augosa seciba
Ierobezojumi: Maksimalais skaitlu skaits masiva ir 100, skaitla vertiba
pec modula nedrikst parsniegt 100.}
Program Karto;
uses crt;
var A:array[1..100]of shortint;
M,S:word;
N,i,j:byte;
okk:boolean;
ch:char;
{-- Binaras ievietosanas metode -----------------------}
Procedure Binary(var S,M:word);
var B:array[1..100]of shortint;
bn:byte;
ok:boolean;
begin
B[1]:=A[1];bn:=1;
For i:=2 to N do…