Question

Помогите пожалуйста. Дам 30 баллов СРОЧНО!!!!!!!!!!!

Составить таблицу значений функции y = 8 – x2/3 на отрезке [–4; 4] с шагом 1.

Найти произведение положительных, сумму и количество отрицательных из 10 введенных целых значений:


–5; 5; 36; –10; 98; 63; 2; 8; 37 ; –45.


В отчет включить тексты программ на Паскале, реакцию ЭВМ.

Answer 1

1.

program f_znachenia;

var

x:real;

begin

x:=-4;

writeln(' x y');

while x<=4 do begin

writeln(x:4:1,8-sqr(x)/3:7:1);

x:=x+1;

end;

readln;

end.

2.

program pr_sum_kol;

var

x,pr,sum,kol,i:integer;

begin

pr:=1; sum:=0;kol:=0;

for i:=1 to 10 do

begin

read(x);

if x>0 then pr:=pr*x

else

if x<0 then

begin

sum:=sum+x;

kol:=kol+1

end

end;

writeln('Произведение положительных=',pr);

writeln('Сумма отрицательных=',sum);

writeln('Количество отрицательных=',kol);

readln;

end.