Записать элементы массива в обратном порядке

@Kivi92 · Регистрация: 23.10.2009

Студворк — интернет-сервис помощи студентам

Записать елементы массива А(n) в обратном порядке

Добавлено через 15 секунд
помогите решить вообще нечего понять не могу.

@Inadequate · 24.10.2009, 21:31

вот решение если вам разрешено заводить второй вспомогательный массив...

Pascal

const
  max=10;
var
  i:integer;
  a,b:array [1..max] of integer;//b - ìàññèâ äëÿ îáðàòíîãî ïîðÿäêà
begin
  writeln('Èñõîäíûé ìàññèâ:');
  writeln('----------------------------------');
  write('[ ');
  //çàïîëíÿåì  ìàññèâ
  for i:=1 to max do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ')
  end;
  write(']');
  writeln;
  writeln('----------------------------------');
  //ïðîèçâîäèì çàìåíó
  for i:=1 to max do
    b[max-i+1]:=a[i];
  writeln('Ïîëó÷åííûé ìàññèâ:');
  writeln('----------------------------------');
  write('[ ');
  //âûâîäèì ìàññèâ
  for i:=1 to max do
    write(b[i],' ');
  write(']');
  writeln
end.

а вот без второго массива, но с помощью вспомогательной переменной типа integer...

Pascal

const
  max=10;
var
  i:integer;
  a:array [1..max] of integer;
  temp:integer;//âñïîìîãàòåëüíàÿ ïåðåìåííûÿ
begin
  writeln('Èñõîäíûé ìàññèâ:');
  writeln('----------------------------------');
  write('[ ');
  //çàïîëíÿåì  ìàññèâ
  for i:=1 to max do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ')
  end;
  write(']');
  writeln;
  writeln('----------------------------------');
  //ïðîèçâîäèì çàìåíó
  for i:=1 to max div 2 do
  begin
    temp:=a[i];
    a[i]:=a[max-i+1];
    a[max-i+1]:=temp;
  end;
  writeln('Ïîëó÷åííûé ìàññèâ:');
  writeln('----------------------------------');
  write('[ ');
  //âûâîäèì ìàññèâ
  for i:=1 to max do
    write(a[i],' ');
  write(']');
  writeln
end.

@Drongo · 24.10.2009, 21:35

Inadequate, задача решается элементарно без второго массива))

Pascal

var a:array [1..100] of integer;
i,n:integer;
begin
writeln('vvedite n');// n - количество элементов массива
readln(n) ;
writeln('vvedite massuv');
for i:=1 to n do readln(a[i]);//читаем массив с 1 по n-ый элемент
for i:=n downto 1 do //выводим массив в обратном порядке, т.е. с последнего элемента n до первого
write('  ',a[i]);
readln;
end.

код рабочий.

@Kivi92 · 24.10.2009, 21:53 **[ТС]**

спасибо большое

@Inadequate · 24.10.2009, 22:03

2Drongo, в твоем решение массив остается без изменений... так что это правильно но не всегда... к примеру у нас на мехмате требовали чтобы массив был изменен, т.к. действительно без этого, задача слишком елементарна... а вот как требуют у Kivi92 мне не известно...

@Puporev · 24.10.2009, 22:07

Drongo, Поскольку в задании написано записать, то правильные первые 2 варианта. Если было вывести на экран в обратном порядке, то Ваш вариант.

@Drongo · 24.10.2009, 22:19

Kivi92, пожалуйста.
Inadequate, согласен)))
Puporev, как и всегда - толковые замечания)))

@ali777bek · 25.10.2009, 11:43

Сообщение от Drongo

Inadequate, задача решается элементарно без второго массива))

Pascal

var a:array [1..100] of integer;
i,n:integer;
begin
writeln('vvedite n');// n - количество элементов массива
readln(n) ;
writeln('vvedite massuv');
for i:=1 to n do readln(a[i]);//читаем массив с 1 по n-ый элемент
for i:=n downto 1 do //выводим массив в обратном порядке, т.е. с последнего элемента n до первого
write('  ',a[i]);
readln;
end.

код рабочий.

Мне хотелось бы спросить : мне надо тоже сделать массив 1-20 - Х а У чтоб массив был обратным, так вот как сделать так чтобы он сразу вводил цифры 1-20 автоматически не заполняя n ???? и еще мне надо что были только положительные числа, И как сделать чтоб он вводил только в строчку 1-20 и обратная чтоб была тоже 20-1

@Kivi92 2 / 2 / 0 Регистрация: 23.10.2009 Сообщений: 20
		1
	Записать элементы массива в обратном порядке 24.10.2009, 20:49. Показов 38740. Ответов 7 Метки нет (Все метки) Записать елементы массива А(n) в обратном порядке Добавлено через 15 секунд помогите решить вообще нечего понять не могу. 1

@Kivi92 2 / 2 / 0 Регистрация: 23.10.2009 Сообщений: 20
	24.10.2009, 21:53 [ТС]	4
	спасибо большое 1

@Inadequate Retired 7726 / 2558 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	24.10.2009, 22:03	5
	2Drongo, в твоем решение массив остается без изменений... так что это правильно но не всегда... к примеру у нас на мехмате требовали чтобы массив был изменен, т.к. действительно без этого, задача слишком елементарна... а вот как требуют у Kivi92 мне не известно... 1

@Puporev Почетный модератор 64287 / 47586 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	24.10.2009, 22:07	6
	Drongo, Поскольку в задании написано записать, то правильные первые 2 варианта. Если было вывести на экран в обратном порядке, то Ваш вариант. 2

@Drongo Админю немножко :) 126 / 115 / 25 Регистрация: 05.01.2009 Сообщений: 889
	24.10.2009, 22:19	7
	Kivi92, пожалуйста. Inadequate, согласен))) Puporev, как и всегда - толковые замечания))) 1

Опции темы

Записать элементы массива в обратном порядке

Решение