Цитата:
Сообщение от YVitaliy
В Код на шару или выкладывай свои наработки, что не получается.
|
Или в "Работа".
PS.
1)
Код:
1 2 3 4 5 6 7 8 9 10 11 12 | var
I : Integer ;
A : Array Of Integer ;
S_odd, S_even : Integer ;
begin
S_odd := 0 ;
S_even := 0 ;
For I := Low(A) To High(A) Do
If A[i] mod 2 = 1 Then S_odd := S_odd + A[i] Else S_even := S_even + A[i];
WriteLn ( 'Sum of odd numbers = ' ,S_odd);
WriteLn ( 'Sum of even numbers = ' ,S_even);
end ;
|
2)
Код:
1 2 3 4 5 6 7 8 9 10 11 | var
X : Integer ;
M_up : Double ;
M_dn : Double ;
begin
M_up := 1 ;
M_dn := 1 ;
For I := 1 To N Do
If I mod 2 = 1 Then M_dn := M_dn*(X-I) Else M_up := M_up*(X-I);
Writeln ( 'Result = ' ,M_up/M_dn);
end ;
|
3)
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | var
A : Array Of String ;
I, J : Integer ;
Buf : String ;
begin
For I := Low(A) To High(A)- 1 Do
For J := I + 1 To High(A) Do
If A[J]>A[i] Then
Begin
Buf := A[J];
A[J] := A[i];
A[i] := Buf;
End ;
For I := Low(A) To High(A) Do
WriteLn (A[i]);
end ;
|
За готовым кодом - в раздел "Работа" со всеми вытекающими.