Составьте программу, которая заполняет массив С[1 ... 14] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран cумму элементов с четными значениями и количество нечетных значений.

Question

Информатика

Борюша

9 декабря, 22:32

Составьте программу, которая заполняет массив С[1 ... 14] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран cумму элементов с четными значениями и количество нечетных значений.

+3

Ответы (1)

Знаете ответ на вопрос?

Рената · Answer 1

Const n=14;

var c:array[1 ... n] of integer;

s, k, i:integer;

begin

k:=0;

s:=0;

for i:=1 to n do begin

c[i]:=random (10) + 1;

write (c[i]:4) ;

end;

writeln;

for i:=1 to n do

if c[i] mod 2=0 then s:=s+c[i]

else k:=k+1;

writeln ('сумма четных элементов = ', s) ;

writeln ('кол-во нечетных чисел = ', k) ;

end.