Дистанционная подготовка: ну чо как?))0)
ну чо как?))0)
от Динар Гайнуллин - Пятница 22 Март 2019, 09:00
112314. Три первых
  var a:array[1..10000] of integer;
i,j,k,m,n: integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to 3 do
begin
m:=a[i];
k:=j;
for j:=i+1 to n do
if a[j] begin
m:=a[j];
k:=j
end;
for j:=k downto i+1 do
a[j]:=a[j-1];
a[i]:=m
end;
for i:=1 to n do
write(a[i], ' ');
end.