Дан одномерный массив целых чисел. Изменить порядок расположения всех элементов на противоположный.

@Angel-dm · Регистрация: 21.12.2009

@yanyk1n · 20.04.2010, 21:12

Pascal

for i:=1 to N div 2 do
begin
 b:=m[i];
 m[i]:=m[N-i+1];
 m[N-i+1]:=b;
end;

@Angel-dm · 20.04.2010, 21:13 **[ТС]**

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

Pascal

for i:=1 to N div 2 do
begin
 b:=m[i];
 m[i]:=m[N-i+1];
 m[N-i+1]:=b;
end;

а всю програмку можно пожалуйста))))

@yanyk1n · 20.04.2010, 21:16

Pascal

uses crt;
var m:array[1..100]of integer;
i,N,b:integer;
 
begin
 clrscr;
 write('N -> ');
 readln(n);
 write('Введите массив -> ');
 for i:=1 to N do read(m[i]);
 readln;
 for i:=1 to N div 2 do
 begin
  b:=m[i];
  m[i]:=m[N-i+1];
  m[N-i+1]:=b;
 end;
 writeln;
 for i:=1 to N do write(m[i],' ');
 readln;
end.

@Angel-dm 113 / 110 / 33 Регистрация: 21.12.2009 Сообщений: 321
		1
	Дан одномерный массив целых чисел. Изменить порядок расположения всех элементов на противоположный. 20.04.2010, 21:07. Показов 2105. Ответов 3 Метки нет (Все метки) Дан одномерный массив целых чисел. Изменить порядок расположения всех элементов на противоположный. 0

Опции темы