Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 189419
18.05.2016, 17:11
0.00 руб.
0 2 1
Компьютеры Программирование
Здравствуйте! У меня возникли сложности с таким вопросом:
написать программу на языке Паскаль: В массиве С поменяйте местами первый и последний, второй
и предпоследний и т.д. элементы . Вы ведите новый массив на экран.

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.05.2016, 15:57
общий
это ответ
Здравствуйте, amelya.kuro!

Смотрите код:
[code lang=pascal h=200]const
n=20;
var
c:array[1..n]of integer;
a,b,d:integer;
begin
{создаем массив С}
writeln('Massiv C:');
randomize;
for a:=1 to n do
begin
c[a]:=random(100);{новый элемент массива}
write(c[a]:5);{выводим его}
end;
writeln;
{начальные индексы}
a:=1;
b:=n;
{меняем пока А<B}
while a<b do
begin
{обмен элементов}
d:=c[a];
c[a]:=c[b];
c[b]:=d;
inc(a);{увеличиваем начальный индекс}
dec(b);{уменьшаем конечный индекс}
end;
{выводим измененый массив}
writeln('new massiv C:');
for a:=1 to n do
write(c[a]:5);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
28.05.2016, 19:12
общий
как обойтись без inc и dec?
Форма ответа