Дана последовательность, состоящая из 10 чисел [7, 3, 10, 9, 8, 4, 1, 6, 2, 5]. Вы умеете за один ход поменять в ней местами два
Waln
Const
a: array of integer = (7, 3, 10, 9, 8, 4, 1, 6, 2, 5);
begin
var n := 0;
var found := false;
repeat
found := false;
for var i := low(a) to High(a) - 1 do
if a[i] > a[i + 1] then begin
swap(a[i], a[i + 1]);
found := true;
n := n + 1;
end;
until not found;
writeln('Swaps = ', n);
end.
Ответ
Swaps = 30
var a: array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do
if i mod 2 = 0 then a[i] := 1 else a[i] := 0;
writeln (a)
end.
var f,g:string;
i:integer;
begin
readln(f);
for i:=1 to length(f)-1 do if (f[i+1]='а') then g:=g+f[i];
writeln(g);
g:='';
for i:=2 to length(f) do if (f[i-1]='а') then g:=g+f[i];
writeln(g);
end.
Компьютер-это средство управления информацией и инструмент для создания програм