Question

Write a loop that reads positive integers from standard input and that terminates when it reads an integer that is not positive. after the loop terminates , it prints out, separated by a space and on a single line, the sum of all the even integers read and the sum of all the odd integers read. declare any variables that are needed. assume the availability of a variable , stdin, that references a scanner object associated with standard input.

Answer 1

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