Какие возможности человека воспроизводит компьютер ? ?

Прием (ввод) информации; запоминание (хранение информации); процесс мышления (обработку информации); передачу (вывод информации).

Uses crt; const n=10; var j: array [1..n] of real;     sum: real;     b: integer; begin       sum: =0;       for b: =1 to n do           j[b]: =sin(b)/cos(b);       for b: =1 to n do           writeln(j[b]: 5: 3);       for b: =2 to n-1 do           if (j[b]> j[b+1]) and (j[b]> j[b-1]) then sum: =sum+j[b];       if j[1]> j[2] then sum: =sum+j[1];       if j[n]> j[n-1] then sum: =sum+j[n];       writeln;       write('sum=',sum: 5: 3); end.

Var     x, y: array [1..50] of integer;     i: integer; begin       for i : = 1 to 50 do           x[i] : = random(50);       for i : = 1 to 50 do           y[i] : = x[51 - i];       for i : = 1 to 50 do           writeln('x[', i, '] => ', x[i]);       for i : = 1 to 50 do           writeln('y[', i, '] => ', y[i]); end.вот, циклы объединять не стал, т.к. они всё-таки разные дела делают: )