Элементы заданого масива b(n) неоходимо переписать в новый масив a(n) в обратном порядке

Категория: Delphi/Pascal
2011-09-01 22:39:58
code: #delphi
  1. program Project2;
  2. {$APPTYPE CONSOLE}
  3. const
  4. N=5;{размер массива}
  5. var
  6. a:array[1..N]of integer;
  7. b:array[1..N]of integer;
  8. i:integer;
  9. begin
  10. for i:=1 to N do
  11.   begin
  12.    Write('Введите ',i,'-й/',N,' элемент массива : ');
  13.    ReadLn(b[i]);
  14.   end;
  15. Writeln(' ');
  16. Write(' Исходный массив : ');
  17. for i:=1 to N do
  18. Write(b[i]);
  19. WriteLn(' ');
  20. Writeln(' ');
  21. Write(' Обратный массив : ');
  22. for i:= 1 to N do
  23. begin
  24. a[i]:=b[N-i+1];
  25. write(a[i]);
  26. end;
  27. end.
Поделиться:

Похожие статьи:

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