Developing.ru

Код: Выделить всё

uses crt;
const x=15;
var a:array[1..x]of integer;
    i,tmp:integer;
BEGIN
 clrscr;
  for i:=1 to x do
   begin
    write('a',i,'=');
    readln(a[i]);
   end;
  for i:=1 to 15 do
   begin
    tmp:=a[i];
    a[i]:=a[15];
    a[15]:=tmp;
   end;
 writeln;
  for i:=1 to x do
    begin
      writeln('a',i,'=',a[i]);
     end;
  readln;
END.

Код: Выделить всё

uses crt;

const x=15;

var a:array[1..x]of integer;
    i,tmp:integer;

BEGIN
 clrscr;
  for i:=1 to x do
   begin
    write('a',i,'=');
    readln(a[i]);
   end;

tmp := a[15];
move(a[1], a[2], (x-1)*sizeof(Integer));
a[1] := tmp;

 writeln;
  for i:=1 to x do
    begin
      writeln('a',i,'=',a[i]);
     end;
  readln;
END.