|
Вопрос # 5 230/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
помогите пожалуйста написать программу.
Дан массив A размера N. Вывести его элементы в следующем порядке: A1, AN, A2, AN–1, A3, AN–2, ….
 |
Вопрос задала: Лиса (статус: Посетитель)
Вопрос отправлен: 26 апреля 2011, 21:09
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Мережников Андрей
Здравствуйте, Лиса!
примерно так, как в приложении (пишу только вывод, ввод элементов в массив сделайте сами)
все-таки предполагаю, что программу надо сделать на Pascal, а не в Delphi, поэтому для вывода используется write.
Приложение: Переключить в обычный режим- <code>
-
- procedure OutArr(var a:aa; N:integer);
- var i:integer;
- begin
- for i:=1 to (N div 2)
- do begin
- write(a[i],' ',a[N+1-i],' ');
- end;
- if (N mod 2)=1
- then write(a[(N div 2)+1];
- end;
- </code>
 |
Ответ отправил: Мережников Андрей (статус: Абитуриент)
Время отправки: 26 апреля 2011, 22:46
Оценка за ответ: 5
|
Ответ #2. Отвечает эксперт: Толяныч
Здравствуйте, Лиса!
Вот приблизительно так.
фрагмент кода
 |
Ответ отправил: Толяныч (статус: 4-ый класс)
Время отправки: 26 апреля 2011, 23:06
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 27 апреля 2011, 10:49; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 26 апреля 2011, 23:43 [#1]:
Помочь или написать программу?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Лиса (статус: Посетитель), 27 апреля 2011, 10:49 [#2]:
написать
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
