Оч много . нужна блок-схема к и модель. сами программы в паскале есть. к первой прога var i,n,s: integer; begin writeln ('введите n'); readln(n); s: =0; for i: = 1 to n do begin s: =s+1/i; end; writeln('сумма равна - ',s); end. ко второй, с квадратов, скинуть не могу. п а м а г и т и.

Program nnatovna;
uses crt;
const n=13;
var
  a:array [1..n] of integer;
  i,min,max,temp:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  randomize;
  writeln('Элементы массива:');
  {создание и вывод массива}
  for i:=1 to n do
    begin
      a[i]:=random(100)-50;
      write (a[i]:5);
    end;
{ищем номера мин и мах}
  min:=1;
  max:=1;
  for i:=1 to n do
    begin
      if a[min]>a[i] then min:=i;
      if a[max]<a[i] then max:=i;
    end;
{меняем местами мин и мах элементы}
  temp:=a[min];
  a[min]:=a[max];
  a[max]:=temp;    
{вывод результата}
  writeln();
  writeln('Результат:');
  for i:=1 to n do
    write(a[i]:5);
end.

1. Процессор
2. Память
  2.1. Оперативная память
  2.2. Долговременная память
    2.2.1. Жесткий магнитный диск
    2.2.2. Дискета
    2.2.3. Флэш-память 
    2.2.4. Оптические диски
       2.2.4.1. CD
       2.2.4.2. DVD
3. Устройства ввода
  3.1. Клавиатура
  3.2. Мышь
  3.3. Сканер
  3.4. Графический планшет
  3.5.Цифровая камера
  3.6. Микрофон
  3.7. Джойстик
4. Устройства вывода
  4.1. Монитор
    4.1.1. Жидкокристаллический монитор
    4.1.2. Монитор на электронно-лучевой трубке
  4.2. Принтер
    4.2.1. Матричный принтер
    4.2.2. Струйный принтер
    4.2.3. Лазерный принтер