Задать массив из 8 элементов целого типа

Question

Задать массив из 8 элементов целого типа. Заполнить массив случайными значениями из интервала (-10; 10) и вывести массив. Найти сумму и количествочетных, а также произведение и количество нечетных значений элементов массива.

Answer 1

91

whitele

26 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: