1. var a,z:integer; begin z:=1; readln(a); while a<>0 do begin if a<0 then z:=-z; readln(a); end; if z=-1 then writeln('Произведение отрицательных чисел отрицательно') else writeln('Произведение отрицательных чисел положительно'); end.
Пример: 12 -45 -87 -20 0 <span>Произведение отрицательных чисел отрицательно
2. var n,a,x,s,i:integer; begin readln(n,a); s:=0; for i:=1 to n do begin readln(x); if x>a then s:=s+x end; writeln('s = ',s); end.
Program a; var x,a,b,c: real; begin write('x,a,b,c = ?'); read(x,a,b,c); x:=exp((a)*2)+3*exp((b)*2)-18*a*c; writeln('x=',x); <span>end. (Паскаль)</span>