Что лишнее жесткий диск flash-память компакт-диск процессор

Процессор! т.к все остальные устройства-- накопители 

Vara: array[1..100000000] of integer; mini,minz,i,n: integer; beginwrite('введите размер массива - '); readln(n); write('введите элементы массива - '); for i: =1 to n do  read(a[i]); i: =1; while  minz=0 do  begin  i: =i+1;   if a[i]> 0 then    begin    mini: =i;     minz: =a[i];     end;   end; for i: =1 to n do  begin  if (a[i]< minz) and (a[i]> 0) then    begin    minz: =a[i];     mini: =i;     end;   end; writeln('значение минимального элемента массива - ',minz,'. индекс - ',mini); end.

1)       var  a: array[1..10]of integer;   i,n,k: integer;   begin    readln(n);       for i: =1 to 10 do        begin          read(a[i]);           if a[i]< 0 then          a[i]: =n;         end;         for i: =1 to 10 do          write(a[i],' ');         end.2)var  a: array[1..999999]of integer;   i,n,s: integer;     begin        readln(n);         for i: =1 to n do          begin            a[i]: =random(36)-15;             write(a[i],' ');           end;           writeln;           for i: =1 to n do            if abs(a[i])> 10 then            write(a[i],' ');         end.3)         var  a: array[1..999999]of integer;   i,n,s: integer;     begin        readln(n);         for i: =1 to n do          begin            a[i]: =random(36)-15;             write(a[i],' ');           end;           writeln;           for i: =1 to n do            begin              if i mod 3 = 0 then                if a[i]< 0 then                a[i]: = a[i]*a[i]*a[i];               write(a[i],' ');               end;           end.