- присваивание;
- ввод;
- вывод;
- обращение к вс алгоритму;
- цикл;
- ветвление.
2)
aX2+ bX + c = 0
Алг КWYR (вещ a.b,c,x1,x2,x, лит y)
арг a.b,c
рез x1,x2,x,y
Нач
Цел D
D:=b*b-4*a*c
Если D>0 то y:=”Ур. имеет 2 корня”
X1:=(-b+√D)/2*a
X2:=(-b-√D)/2*a
иначе y:=”Ур. не имеет корней”
все
Если D=0 то y:=”Ур. имеет 1 корень”
X:=(-b)/2*a
все
Кон
const N=1000;
var K: array [1..N] of integer;
i,A,B,C: integer;
W: real;
begin
for i:=1 to N do K[i]:=random(101)-50;
A:=0;
B:=0;
C:=1;
for i:=1 to N do begin
if K[i]>0 then A:=A+K[i];
if K[i]<0 then B:=B+1;
if i mod 2<>0 then C:=C*K[i];
end;
W:=B+(A-B)/(C+1);
writeln(W);
end.