Составьте программу, переписывающую массив X(N) в обратном порядке без использования других массивов

@Лендос · Регистрация: 25.03.2013

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

@CodeR · 17.12.2014, 07:07

Pascal

Const nmax=100;
Var X:array[1..nmax] of integer;
    i,n,temp:integer;
Begin
    Repeat
     write('Введите N: ');
     readln(n);
    Until (n>0)and(n<=100);
    writeln('Исходный массив');
    For i:=1 to n do
    Begin
      X[i]:=random(15);
      write(X[i]:4);
    End;
    writeln;
    For i:=1 to n div 2 do
    Begin
      temp:=X[i];
      X[i]:=X[n-i+1];
      X[n-i+1]:=temp;
    End;
    writeln('Преобразованный массив');
    For i:=1 to n do
     write(X[i]:4);
    readln;
End.

@Лендос · 17.12.2014, 10:15 **[ТС]**

Спасибо

@Лендос 0 / 0 / 0 Регистрация: 25.03.2013 Сообщений: 32
		1
	Составьте программу, переписывающую массив X(N) в обратном порядке без использования других массивов 16.12.2014, 19:15. Показов 1271. Ответов 2 Метки нет (Все метки) Составьте программу, переписывающую массив X(N) в обратном порядке без использования других массивов 0

@Лендос 0 / 0 / 0 Регистрация: 25.03.2013 Сообщений: 32
	17.12.2014, 10:15 [ТС]	3
	Спасибо 0

Опции темы

Составьте программу, переписывающую массив X(N) в обратном порядке без использования других массивов

Решение