Перевернуть матрицу

[10Rabbit]

Вводится масив из 60 элементов, нужно поменять значения эелементов в обратном порядке(то есть первый должен стать последним и т.д.) без использования дополнительных масивов.

[Вавел из ГМТУ]

30 руб и она твоя.

Если конечноже нету наработок и сам ты делать не хочешь...

[Cnoob]

25 руб - и твоя

[Вавел из ГМТУ]

Сообщение от Cnoob

25 руб - и твоя

Я Вам уступлю, Сударь.

[10Rabbit]

делать я сам хочу нароботки есть но не верные!
Вобщем на без корысную помощь надееться безпонт

[Вавел из ГМТУ]

Если есть наработки, то клади.

[russian-stalker]

Не мой код, но всё же вот:

(* Perevorachivaem massiv
27.09.2004*)
uses Crt;
const
  MAX = 10; {zadaem razmer massiva}
var
  mas           : array[1..MAX] of integer; {opredeliaem massiv celih chisel}
  i             : byte; {dopolnitelnie peremennie}
  loc           : integer;

procedure Vivod;     {vivod massiva na ekran}
var
  il            : byte;

begin
  for il:=1 to MAX do Write (mas[il],' ');
  Writeln;
end;

begin
  ClrScr; {ochishaem ekran}
  for i:=1 to MAX do begin {formiruem massiv, koroche vnosim v massiv
    dannie}
    Write('Vvedi ',i,' element :>');
    Readln(mas[i]);
  end;

  Writeln('Ishodniy massiv:');
  Vivod;

  for i:=1 to MAX div 2 do begin {nu tipa meniaem mestami :) }
    loc:=mas[i];
    mas[i]:=mas[MAX-i+1];
    mas[MAX-i+1]:=loc;
  end;

  Writeln('Konechiy massiv:');
  Vivod;
  ReadKey; {oshidanie nashatia na knopku}
end.

[vovk]

1 цикл 1 переменная того же типа что элемент массива, цикл с 0 до (количество элементов массива div 2)-(количество элементов массива mod 2)

в цикле действия
1)записываеш в переменную элемент массива порядковый номер кторого равен счётчику цикла
2) записываеш в элемент массива порядковый номер которого равен счётчику цикла данные из элемента массива порядковый номер которога равен ((количество элементов массива)- счётчик цикла)
3) записываеш в элемент массива порядковый номер которого равен ((количество элементов массива)- счётчик цикла) данные из переменной

понятно?

[10Rabbit]

тут масив из 10 что бы вводить быстрее
var
mas: array [1..10] of integer;
i:integer;
t,j,k:integer;
begin
writeln('Vvedite massiv');
for i:=1 to 10 do
readln(mas[i]);
writeln('ishodniy massiv');
for i:=1 to 10 do
write(mas[i],' ');
for i:=0 to 10 do
begin
mas[10-i]:=mas[1+i];
end;
writeln;
writeln('itogoviy massiv');
for i:=1 to 10 do
write(mas[i],' ');
readln;
end.

[Вавел из ГМТУ]

{Для оформления кода у нас есть тег CODE}


Рассмотрим:

For i := 0 To 10 Do
Begin
   Mas[10 - i] := Mas[1 + i];
End;

Не надо проходиться по всему массиву при перестановке.
Да и сам переворот выглядит непонятно..
Надо значала запомнить значение Mas[10 - i], а потом только присваивать Mas[1 + i].