Задание:
Задать массив из 8 элементов целого типа. Заполнить массив случайными значениями из интервала (-10; 10) и вывести массив. Найти сумму и количествочетных, а также произведение и количество нечетных значений элементов массива.
Решение:
const z=8; var a: array[1… z] of integer; i, s, s2, n, n2: integer; begin s: =0; s2: =1; for i: =1 to z do begin a[i]: =random (21) — 10; write (a[i], '); if (a[i] mod 2=0) then begin {четные} inc (n); s: =s+a[i]; end else begin inc (n2); s2: =s2*a[i]; end; end; writeln; writeln ('Кол-во четных чисел: ', n, ', их сумма: ', s); writeln ('Кол-во нечетных чисел: ', n2, ', их произведение: ', s2); end.
Знаете другой ответ?