Задать массив из 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
