Advertisement
destr0y

Untitled

Mar 21st, 2020
1,158
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var a := new List<integer>;
  2. begin
  3.   for var i := 1 to 10 do
  4.     a.Add(random(-10,20));
  5.  
  6.   writeln(a);
  7.  
  8.   var b: integer;
  9.   write('Введите номер элемента: ');
  10.   readln(b);
  11.   a.RemoveAt(b-1);
  12.  
  13.   writeln(a);
  14.  
  15.   var c, temp: integer;
  16.   write('Введите кол-во элементов: ');
  17.   readln(c);
  18.  
  19.   for var i := 1 to c do
  20.   begin
  21.     readln(temp);
  22.     a.Add(temp);
  23.   end;
  24.  
  25.   writeln(a);
  26. end.
Advertisement
RAW Paste Data Copied
Advertisement