Одномерные массивы. Немного не понимаю(

[ByAlex]

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

она только результат выводит, а как и оригинал вывести .а потом измененный?

Вот так -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  arr:array[1..100] of integer;
  a,i,t,n:integer;
begin
  write('Vvedite n - ');
  readln(n);
  write('Massive is - ');
  for i := 1 to n do
  begin
    Arr[i]:=Random(25);
    write(Arr[i],' ');
  end;
  a:=Arr[1];
  for i := 2 to n do
  begin
    t:=arr[i];
    Arr[i]:=a;
    if i=n then
    begin
      Arr[1]:=t;
    end;
    a:=t;
  end;
  writeln('Result = ');
  for i := 1 to n do
    write(arr[i],' ');
  readln;
end.

[Elena04]

Помогите пожалуйста!!!!!
Задан масссив целых чисел из Т элементов. Найти первую пару соседних противоположных чисел ( их сумма равна 0).

[Hacker19_90]

Elena04 создайте свою тему!
Влазить в чужие темы запрещено!

[mun_nw]

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

Elena04 создайте свою тему!
Влазить в чужие темы запрещено!

Хакер, слишком сложная программа, непонял нифига, мжеш ьв аське ответить?

[Hacker19_90]

ПИШИ! КТО ж не даёт-то?

[Hacker19_90]

ну вот! Может и проще. Без доп. переменных как хотели

const Nmax=1000;
var 
    a: array[1..Nmax] of integer;
    i, n:integer;
begin
     N:=5;
     randomize;
     for i:=1 to N do 
         a[i]:=random(51);
     for i:=1 to N do
          writeln('a[',i,']=', a[i]);
    for i:=N downto 1 do
        A[i+1]:=A[i];
    A[1]:=A[N+1];
    for i:=1 to N do
        writeln('a[',i,']=', a[i]);
    ReadLn;
end.

НО! Есть очень уязвимое место в вашем подходе
Это вот это место

for i:=N downto 1 do
        A[i+1]:=A[i];

Если пользователь введёт значение равное максимальному размеру массива,
То программа просто упадёт из-за обращения к памяти лежащей за пределами массива!