:
1. ;
2.
S M, (£20). M , (S) .
{ 5}
{ . }
Uses crt; { TP}
Var m:array[1..20] of real; { }
S:real; { }
i,K:byte; { }
Begin Clrscr; { }
Write(' ='); Readln(K);
Writeln(' ',K,' ');
For i:=1 to K do read(M[i]); { }
writeln; { }
S:=0.0; { }
For i:=1 to K do
If M[i]>0 then S:=S+M[i]; { }
Writeln(' S = ',S); { }
End.
1. ={ai}, i=1,N, N- (N<100). , () .
2. ={mi}, i=1,t, t- (t£50). , .
3. ={kj}, j=1,m, m - (m£60). , .
4. T={tj}, j=1,s, s - T (s£40). , .
5. ={kj}, j=1,m, m - (m£80). , .
6. T={tj}, j=1,s, s - T (s£400). , .
|
|
7. ={kj}, j=1,m, m - (m£55), 0. , .
8. P={pj}, j=1,r, r - P (r£140), P0. , .
9. ={mi}, i=1,t, t- (t£250). , .
10. ={kj}, j=1,m, m - (m£90). , .
11. ={mi}, i=1,t, t- (t£200). .
12. ={i}, i=1,t, t- (t£120). .
13. P={pj}, j=1,r, r - P (r£180), P0. , .
14. ={i}, i=1,t, t- (t£170). .
15. ={i}, i=1,t, t- (t£260). .
16. ={kj}, j=1,m, m - (m£190). , .
17. ={kj}, j=1,m, m - (m£900). , .
18. ={kj}, j=1,m, m - (m£110). , .
19. ={kj}, j=1,m, m - (m£450). , .
|
|
20. ={kj}, j=1,m, m - (m£300). , .
6