ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ Уровень B. Массив имеет четное число элементов. Заполнить массив случайными числами и выполнить реверс отдельно в первой половине и второй половине. Пример: Массив: 1 2 3 4 5 6 Резу...
ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ
Уровень B. Массив имеет четное число элементов. Заполнить массив случайными числами и выполнить реверс отдельно в первой половине и второй половине.
Пример:
Массив:
1 2 3 4 5 6
Результат:
3 2 1 6 5 4
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.1 сборка 1256
Const
n=6;
Var
ar:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(10);
write(ar[i]:4);
end;
for i:=1 to n div 4 do
swap(ar[i],ar[n div 2-i+1]);
for i:=n downto n-(n div 4) do
swap(ar[i],ar[(n div 2)+1+n-i]);
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
Не нашли ответ?
Похожие вопросы