Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.06.2012, 19:59   #1
MKS23
 
Регистрация: 25.04.2012
Сообщений: 6
По умолчанию в чем ошибка?

Для данного числа N и N элементов последовательности, введенных пользователем ,выведите эти элементы в обратном порядке.
Код:
Program qq;
uses crt;
var a:array [1..10000] of  integer;
i,j,z,N: integer;
begin
clrscr;
readln(N);
Write (’zapolnite massiv’);
For i:=1 to N do begin 
Readln(j);
a[i]:=j;
end;
if (N mod 2) = 0 then begin
z:=a[1];
a[1]:=a[N];
a[N]:=z;
for i:=1 to (N div 2)-1 do begin
z:=a[i+1];
a[i+1]:=a[N-i];
a[N-i]:=z;
end;
end
else for i:=0 to (N div 2) do begin
z:=a [i+1];
a[i+1]:=a[N-1];
a[N-1]:=z;
end;
for i:=1 to N do 
write (a[i],’ ’);
end.

Последний раз редактировалось ACE Valery; 13.06.2012 в 21:56.
MKS23 вне форума Ответить с цитированием
Старый 13.06.2012, 20:06   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Цитата:
в чем ошибка?
В подходе.
Код:
uses
  crt;

var
  n: integer;

procedure reverseread(i: integer);
var
  a: integer;
begin
  if i = 0 then exit;
  read(a);
  reverseread(i - 1);
  write(a, ' ');
end;

begin
  read(n);
  reverseread(n);
  readln;
end.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В чем ошибка? bwitcher Помощь студентам 8 11.12.2010 14:46
в чем ошибка??? Cnfczy Общие вопросы Delphi 1 28.11.2010 21:16
В чем ошибка? AleNa666 Паскаль, Turbo Pascal, PascalABC.NET 2 28.04.2009 14:28
В ЧЕМ ОШИБКА? salmanbaz Общие вопросы C/C++ 5 11.01.2009 13:21