Const n=10;
Var b,c;
a:array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
If a[i]>0 then b:=a[i]+b
else
inc(c);
Writeln(b,' ', c);
end.
(3*sqr(cos(x))-sqrt(sin(2*x)+3))/(2*tg(2*x)+1) вот так твой пример выгляди остальное то напишешь?
Ответ:
1. Лазерные и струйные.
2. CD - диски!?
3. От количества оперативной памяти и ядров.
4. Гигагерцы