Помогите пожалуйста. Срочно нужно. Дан одномерный массив, состоящий из 10 элементов.Вывести на экран в строчку.Поменять местами значения от 6-10 элементов массива элементов массива и снова вывести на экран!
Помогите пожалуйста. Срочно нужно. Дан одномерный массив, состоящий из 10 элементов.Вывести на экран в строчку.Поменять местами значения от 6-10 элементов массива элементов массива и снова вывести на экран!
Гость
Ответ(ы) на вопрос:
ГостьПаскаль АВС. Программа меняет местами половинки массива: (6-10) и (1-5)
Program nana05;
uses crt;
const n=10;
var
a:array [1..10] of integer;
i,j,min,temp:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
randomize;
writeln('Элементы массива:');
{создание и вывод массива}
for i:=1 to n do
begin
a[i]:=random(100)-50;
write (a[i]:5);
end;
{меняем местами половинки массива}
for i:=1 to 5 do
begin
temp:=a[i];
a[i]:=a[5+i];
a[5+i]:=temp;
end;
writeln();
writeln('Результат:');
for i:=1 to n do
write(a[i]:5);
end.
Не нашли ответ?
Похожие вопросы