Ответы и объяснения

  • Sky09
  • профессор
2014-03-15T12:20:24+04:00
Uses crt;
const n=20;
var a: array [1..n+1] of integer;
    i,k,z: integer;
begin
     for i:=1 to n do
     begin
          a[i]:=random(10);
          write(a[i],' ');
     end;
     writeln;
     write('Введите число: '); readln(z);
     for i:=n+1 downto 11 do
     a[i]:=a[i-1];
     a[10]:=z;
     for i:=1 to n+1 do
     write(a[i],' ');
end.