Массив имеет четное число элементов. Заполните массив случайными числами и выполнить...

Question

Массив имеет четное число элементов. Заполните массив случайными числами и выполнить реверс отдельно в первой половине и второй половине.
Пример:
массив:
1 2 3 4 5 6
результат:
3 2 1 6 5 4

Comments

язык программирования какой?

---

паскаль

Answer 1

Var i:integer; an:array[1..10] of integer,a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(100);
for i:=1 to 5 do an[6-i]:=a[i];
for i:=1 to 5 do an[11-i]:=a[i+5]; 
writeln("Получившийся массив:");
writeln(" ");
for i:=1 to 10 do write(an[i]," ");
end.

Comments

сейчас посмотрю как рандом переделать

---

готово

Answer 2

С++
#include
#include
using namespace std;
int main ()
{
setlocale (0,"russian");
srand (time(NULL));
int N;
cout << "Чётное N=";<br> cin >> N;
if (N%2==0 && N>0)
{
int *arr=new int [N];
cout << "Случайный массив: ";<br> for (int i=0;i {
arr[i]=rand()%200-100;
cout << arr[i] << ' ';<br> }
cout << endl << "Итог: ";<br> for (int x=N/2-1;x>=0;x--)
cout << arr[x] << ' ';<br> for (int y=N-1;y>=N/2;y--)
cout << arr [y] << ' ';<br> }
else
cout << "Ошибка!";</span>
system ("PAUSE>>VOID");
return 0;
}

Comments

мне нужно в паскале :(