Устройство хранения программ и данных

Флэшка, карта памятиё жесткий диск , диски

Жесткий диск, твердотельный накопитель, флешка, компакт- в теории можно файлы и на виниле хранить: )

Program asd; const n=4;       m=3; var a: array[1..n,1..m] of integer; b,jd,id: array[1..n] of integer; i,j,k,min,ii,jj: integer; begin    for i: =1 to n do      begin    for j: =1 to m do        begin      a[i,j]: =2+random(8);       write(a[i,j],' ');         end;     writeln;   end;           writeln;   ii: =1;       for i: =1 to n do    begin      min: =1000;       for j: =1 to m do        begin      jj: =1;         if a[i,j]< =min then     begin      min: =a[i,j];     id[i]: =i;     jd[i]: =j;         end;         end;       b[i]: =min;               end;     for i: =1 to n do      begin    writeln('min: ',b[i],'. строка: ',id[i],'; столбец: ',jd[i],'; ');       end;     end.

Program asd; const n=10;   var a: array[1..n]   of integer;   i: integer; begin randomize;   for i: =1 to n do      begin    a[i]: =1+random(10)-4;     write(a[i],' ');   end;     writeln;       for i: =1 to n do    begin      if (a[i] mod 2=0) and (a[i]> 0)    then    begin      a[i]: =1;     write(a[i],' ');     end    else      if (a[i] mod 3=0) and (a[i]< 0)    then     begin      a[i]: =-1;       write(a[i],' ');       end        else        write(a[i],' ');             end;     end.