ПАСКАЛЬ! Дан массив размера N. Вывести его элементы в обратном порядке.

ПАСКАЛЬ! Дан массив размера N. Вывести его элементы в обратном порядке.
Гость
Ответ(ы) на вопрос:
Гость
Можно так: Const N = 10; Var A:array[1..N] of integer; i:integer; Begin For i:= 1 to N do     Begin     A[i]:=random(21)-10;     Write(A[i],' ');     End; WriteLn; For i:= N downto 1 do     Write(A[i],' '); End. и так: Const N = 10; Var A:array[1..N] of integer; i:integer; Begin For i:= 1 to N do     Begin     A[i]:=random(21)-10;     Write(A[i],' ');     End; WriteLn; For i:= 1 to N do     Write(A[N-i+1],' '); End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы