Консультация № 189418
18.05.2016, 17:10
0.00 руб.
0 3 1
Здравствуйте! Прошу помощи в следующем вопросе:
написать программу на языке Паскаль: В массиве X поменяйте местам и соседние элементы каждой
пары и выведите новый массив.

Обсуждение

давно
Профессионал
153662
1070
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

Неизвестный
28.05.2016, 19:11
общий
чем можно заменить inc?
давно
Профессионал
153662
1070
29.05.2016, 19:31
общий
Код:
i:= i + 2;
Об авторе:
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru

Форма ответа