Переворот массива

Оригинал статьи: http://www.cyberforum.ru/pascal/thread133142.html
Благодарен всем авторам, которые внесли свой вклад в сборку кода

Переворот массива

  
var
  a: array[1..100] of integer;
  i, r, n: integer;

begin
  Write('Количество элементов массива=');
  readln(n);  {читаем размер массива}
  writeln('Оригинал:');
  for i := 1 to n do
  begin
    a[i] := random(10);
    write(a[i]:3);
  end;

  for i := 1 to n div 2 do   {сам "переворот"}
  begin
    r := a[i];
    a[i] := a[n - i + 1];
    a[n - i + 1] := r;
  end;
  Writeln;
  writeln('После переворота');
  for i := 1 to n do
    write(a[i]:3);
end.

Если вы нашли ошибку, пожалуйста, выделите фрагмент текста и нажмите Ctrl+Enter.

0 0 vote
Article Rating
Подписаться
Уведомление о
guest
0 Комментарий
Inline Feedbacks
View all comments