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

@SStass · Регистрация: 27.10.2011

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

Дан массив а[с]. Расположить его элементы в обратном порядке.

@Puporev · 16.04.2012, 21:24

Pascal

uses crt;
type Tmass=array[1..20]of integer;
var a:Tmass;n,i:integer;
procedure Revers(i,j:integer);
var buf:integer;
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
inc(i);
dec(j);
if i<j then Revers(i,j);
end;
begin
clrscr;
write('n=');readln(n);
writeln('Ishod massiv');
for i:=1 to n do
  begin
   a[i]:=i;
   write(a[i],' ');
 end;
writeln;
writeln('Obratn massiv');
Revers(1,n);
for i:=1 to n  do
   write(a[i],' ');
readln;
end.

@SStass 2 / 2 / 0 Регистрация: 27.10.2011 Сообщений: 26
		1
	Расположить элементы массива в обратном порядке 16.04.2012, 21:11. Показов 1485. Ответов 1 Метки нет (Все метки) Дан массив а[с]. Расположить его элементы в обратном порядке. 0

	16.04.2012, 21:24

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

Решение