Вопрос Напишите программу для Free Pascal)

[ego]

Если можно, то поподробней
//otvet.imgsmail.ru/download/196394096_3e4760119ff0552d5517fcd2dff5c0de_800.png

 

[вадимыч]

for i:=1 to 10 do begin a:=random(51); writeln(a) end; writeln; for i:=1 to 9 do begin c:=a; a:=a[i+1]; a[i+1]:=c end;

 

[tema09]

работает для PascalABC const n=10; var a:array [1..n] of integer; i,c:integer; begin for i:=1 to n do a:=random(50); writeln(a); i:=1; repeat swap(a,a[i+1]); //в других паскалях заменить эту строку на c:=a; a:=a[i+1]; a[i+1]:=c; inc(i,2); until i>10; writeln(a); end.