1. на отрезке от 2-х до 3-х [2; 3] с шагом 0, 1 протабулировать функцию x(в 5 степени)-x+1, 8 2. на отрезке то 0 до 2-х [0; 2] с шагом 0, 2 протабулировать функцию √x³+x+1, 5/x+1 , .. задали и не объяснили.. кто может или протабулируйте , ну или хотя бы просто объясните как это делать вообще? ?

Подставляешь от 0 до 2 с шагом 0,2 (0, 0.2, 0.4 и т.д.) числа вместо х и решаешь.

Var   mass : array of integer;   len, tempnumber, summ, i : integer; begin   write('введите длину массива: ');   readln(len);     setlength(mass, len);   for i : = 0 to len - 1 do   begin     write('mass[', i, ']  =  ');     readln(mass[i]);   end;   summ : = 0;   for i : = 0 to len - 1 do     if mass[i] mod 3 = 2 then             summ : = summ + mass[i];   writeln('сумма:   ', summ); end.

Program n1; uses crt; var c: array[1..1000] of integer; n, i, null, otric, polozhit : integer; begin     writeln('razmer massiva = '); readln(n); for i: =1 to n do begin     c[i]: =random(40) - 20;     write(c[i]: 4); end;     writeln(); otric: =0;   polozhit: =0;   null: =0; for i: =1 to n do   begin     if (c[i]< 0) then otric: =otric+1;     if (c[i]> 0) then polozhit: =polozhit+1;     if (c[i]=0) then null: =null+1; end;     writeln('kol-vo chisel < 0: ', otric);     writeln('kol-vo chisel > 0: ', polozhit);     writeln('kol-vo chisel = 0: ', null); end.