<span>Program PR1;
Uses crt;
var f:text;
a,i:longint;
begin
clrscr;
assign(f,'Data');
rewrite(f);
for i:=1 to 10 do
begin
readln (a);
write (f,a);
end;
close(f);
end.
и еще надо дописать разрешение файла Желательно</span>
два кольца, два конца, посередине гвоздик
Для того, чтобы в тексте все буквы а поменять на буквы б, необходимо жмякнуть ctrl+c "а" ctrl+v "б"
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 := i;
for j := i+1 to n do
if a[j] < m then
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.
Вправо 3 вправо 3 влево 2 <span>влево 2 если не по очереди то этого достаточно</span>
