18.05.2016, 20:41
общий
это ответ
Здравствуйте, amelya.kuro!
Такой вариант:
[code lang=pascal]var
x, y: array[1..10] of integer;
i: integer;
begin
{создаем массив x}
for i:= 1 to 10 do
begin
x[i]:= random(10);
write(x[i]:3);
end;
writeln;
{создаём новый массив y}
i:= 1;
repeat
begin
y[i]:= x[i + 1];
y[i + 1]:= x[i];
inc(i, 2);
end;
until
i > 10;
{выводим массив y}
for i:= 1 to 10 do
write(y[i]:3);
end.[/code]
Об авторе:
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru