Предмет: Информатика,
автор: victoriab1
ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ
Уровень B. Массив имеет четное число элементов. Заполнить массив случайными числами и выполнить реверс отдельно в первой половине и второй половине.
Пример:
Массив:
1 2 3 4 5 6
Результат:
3 2 1 6 5 4
Ответы
Автор ответа:
0
//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.
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.
Похожие вопросы
Предмет: Українська мова,
автор: drobotvioletta
Предмет: Математика,
автор: dzhele19
Предмет: Литература,
автор: snnsjsjsjsjsjsj
Предмет: Математика,
автор: kalina2003
Предмет: Алгебра,
автор: Аноним