Изменить порядок следования массива на обратный

@o0z3 · Регистрация: 21.12.2009

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

Дан одномерный массив. Изменить порядок следования массива на обратный.
Помогите пожалуйста)

@WolfCF · 29.12.2009, 16:00

вот

Pascal

uses crt;
const n=5;
var a:array[1..n] of integer;
    i,k:integer;
begin
clrscr;
for i:=1 to n do
   begin
     a[i]:=-10+random(20);
     write(a[i],' ');
   end;
writeln;
for i:=1 to n div 2 do
  begin
    k:=a[i];
    a[i]:=a[n+1-i];
    a[n+1-i]:=k;
 end;
 textcolor(lightgreen);
for i:=1 to n do
write(a[i],' ');
readln;
end.

@o0z3 0 / 0 / 0 Регистрация: 21.12.2009 Сообщений: 5
		1
	Изменить порядок следования массива на обратный 29.12.2009, 15:53. Показов 1343. Ответов 1 Метки нет (Все метки) Дан одномерный массив. Изменить порядок следования массива на обратный. Помогите пожалуйста) 0

	29.12.2009, 16:00

Изменить порядок следования массива на обратный

Решение