Напишите процедуру, которая вычисляет сумму элементов массива имеющих четное значение и нечетное.
Решение:
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
program procedures_4;
uses crt; type Arr=array[1..100] of integer; var A: Arr; i, n, sum1, sum2: integer; procedure sum(d: integer; mas: Arr); var j, sum1, sum2: integer; begin for j:=1 to d do if mas[j] mod 2=0 then sum1:=sum1+mas[j] else sum2:=sum2+mas[j]; writeln; writeln(‘Сумма четных элементов: ‘, sum1); write(‘Сумма нечетных элементов: ‘, sum2); end; begin clrscr; write(‘Количество элементов > ‘); read(n); for i:=1 to n do begin A[i]:=random(10); write(A[i], ‘ ‘); end; sum1:=0; sum2:=0; sum(n, A); readkey; end. |