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

Question

Информатика

Силан

4 мая, 05:33

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

+2

Ответы (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.