Составьте программу, которая заполняет массив С[1...14] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран cумму элементов с четными значениями и количество нечетных значений.
Составьте программу, которая заполняет массив С[1...14] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран cумму элементов с четными значениями и количество нечетных значений.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы