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

@FrenzyWolf · Регистрация: 31.10.2012

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

Помогите пожалуйста с решением.

2. Поменять порядок следования элементов одномерного массива на обратный.

@ermolay · 20.11.2012, 07:09

Pascal

const
  nmax=100;
var
  a: array[1..nmax] of integer;
  n,i,tmp: integer;
begin
  randomize;
  write('Введите размер массива n: ');
  readln(n);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    a[i]:=i; // для наглядности
    write(a[i]:3);
  end;
  writeln;
  for i:=1 to n div 2 do
  begin
    tmp:=a[i];
    a[i]:=a[n-i+1];
    a[n-i+1]:=tmp;
  end;
  writeln('"Обратный" массив:');
  for i:=1 to n do write(a[i]:3);
  writeln;
end.

@FrenzyWolf 0 / 0 / 0 Регистрация: 31.10.2012 Сообщений: 5
		1
	Поменять порядок следования элементов одномерного массива на обратный 20.11.2012, 05:09. Показов 1169. Ответов 1 Метки нет (Все метки) Помогите пожалуйста с решением. 2. Поменять порядок следования элементов одномерного массива на обратный. 0

	20.11.2012, 07:09

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

Решение