Заполнить массив из 10 элементов случайными числами и сделать реверс всех элементов, кроме последнего

@FARAON166 · Регистрация: 26.10.2010

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

Пожалуйста, помогите решить вот эту задачу.

1) Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и сделать реверс всех элементов, кроме последнего.
Пример:
Исходный массив:
-5 3 10 -4 -6 8 -10 1 0 4
Результат:
0 1 -10 8 -6 -4 10 3 -5 4

Так же попрошу писать не сильно заумным кодом) так как это всё нужно для сестры которая учится в 9 классе

@Фаер · 21.10.2012, 15:18

Pascal

Var A:array[1..10] of shortint; i:byte; c:shortint;
Begin
Randomize;
For i:=1 to 10 do
 Begin
  A[i]:=random(21)-10; Write(A[i]:3);{генерация элементов массива и вывод их на экран}
 End;
Writeln;
For i:=1 to 5 do
 Begin
  c:=A[i]; A[i]:=A[10-i]; A[10-i]:=c;{реверс элементов}
 End;
For i:=1 to 10 do Write(A[i]:3);{вывод полученного массива}
End.

@FARAON166 0 / 0 / 0 Регистрация: 26.10.2010 Сообщений: 33
		1
	Заполнить массив из 10 элементов случайными числами и сделать реверс всех элементов, кроме последнего 21.10.2012, 14:37. Показов 10065. Ответов 1 Метки нет (Все метки) Пожалуйста, помогите решить вот эту задачу. 1) Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и сделать реверс всех элементов, кроме последнего. Пример: Исходный массив: -5 3 10 -4 -6 8 -10 1 0 4 Результат: 0 1 -10 8 -6 -4 10 3 -5 4 Так же попрошу писать не сильно заумным кодом) так как это всё нужно для сестры которая учится в 9 классе 0

	21.10.2012, 15:18

Заполнить массив из 10 элементов случайными числами и сделать реверс всех элементов, кроме последнего

Решение