ПРочитать книжку либо правила в учебнике.
Запомнить что читал
И научиться применять
ВОТ И ВСЁ
Ситуация 2. 8.2) Незаконность копирования чужих файлов со знаком ©
<span> Алле – 9, Вика-10, Борису – 11, Денису – 13, Соне – 12.</span>
Var
a:array[1..10] of integer;
i:integer;
begin
randomize;
writeln('Ishodnyy massiv:');
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
write(a[i],' ');
end;
for i:=1 to 5 do
begin
a[i*2]:=a[i*2]+a[i*2-1];
a[i*2-1]:=a[i*2]-a[i*2-1];
a[i*2]:=a[i*2]-a[i*2-1];
end;
writeln('Novyy massiv:');
for i:=1 to 10 do
write(a[i],' ');
end.
Получится машина
если / указывало место курсора