Умоляю Срочно Напишите программу на паскале подробно
Answers & Comments
Justickdm
// PascalABC.NET 3.1, сборка 1171 от 15.02.2016 begin var a:=ArrRandom(12,10,99); a.Println; for var i:=0 to 1 do begin Swap(a[i],a[3-i]); Swap(a[i+4],a[7-i]); Swap(a[i+8],a[11-i]) end; a.Println end.
Answers & Comments
begin
var a:=ArrRandom(12,10,99);
a.Println;
for var i:=0 to 1 do begin
Swap(a[i],a[3-i]);
Swap(a[i+4],a[7-i]);
Swap(a[i+8],a[11-i])
end;
a.Println
end.
Тестовое решение:
33 23 98 13 22 79 31 38 71 30 48 53
13 98 23 33 38 31 79 22 53 48 30 71