Переписать в массив Y элементы массива (x1,x2 ,.x30 )в обратном порядке

@markus73 · Регистрация: 21.04.2011

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

Переписать в массив Y элементы массива (x1,x2 ,...x30 )в обратном
порядке.

@CodeR · 07.10.2012, 09:40

Pascal

Const n=30;
Var X,Y:array[1..n] of integer;
    i:byte;
Begin
    Randomize;
    writeln('Массив X');
    For i:=1 to n do
    Begin
      X[i]:=random(31)-15;
      write(X[i]:4);
    End;
    writeln;
    writeln('Массив Y');
    For i:=n downto 1 do
    Begin
     Y[abs(i-n)+1]:=X[i];
     write(Y[abs(i-n)+1]:4);
    End;
    readln;
End.

@markus73 4 / 4 / 0 Регистрация: 21.04.2011 Сообщений: 52
		1
	Переписать в массив Y элементы массива (x1,x2 ,.x30 )в обратном порядке 07.10.2012, 09:05. Показов 1105. Ответов 1 Метки нет (Все метки) Переписать в массив Y элементы массива (x1,x2 ,...x30 )в обратном порядке. 0

	07.10.2012, 09:40

Переписать в массив Y элементы массива (x1,x2 ,.x30 )в обратном порядке

Решение