Умоляю Срочно Напишите программу на паскале подробно
Умоляю
Срочно
Напишите программу на паскале подробно
Гость
Ответ(ы) на вопрос:
ГостьДумаю похоже на то,что тебе нужно.
Гость// 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.
Тестовое решение:
33 23 98 13 22 79 31 38 71 30 48 53
13 98 23 33 38 31 79 22 53 48 30 71
Не нашли ответ?
Похожие вопросы