Procedure SumEvenOdd(stdin: array [0..100] of integer)
var
i, sum_even, sum_odd: integer;
begin
for i := 0 to 100 do begin
if stdin[i] < 0 then
break;
if stdin[i] mod 2 = 0 then //even number
sum_even := sum_even + stdin[i]
else
sum_odd := sum_odd + stdin[i];
ShowMessage('sum of even is ' + IntToStr(sum_even) + ' ' + 'sum of odd is' + IntToStr(sum_odd) ) ;
end;
end
Apple is the most state of the art computer
Answer: Browse-wrap contract
Explanation: A browse-wrap contract is the contract in which consumer's review is basic terms of the agreement is not required rather the website provides the agreement through browsing.It is an enforceable agreement which requires the terms and the concept to be the actual in the website and the user's consent is a required after going through that agreement.
Answer:
Social change in the broadest sense is any change in social relations. Viewed this way, social change is an ever-present phenomenon in any society.
Explanation:
