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

Ivan2367 Ivan2367    3   16.08.2019 15:40    0

Ответы
ashkon ashkon  31.08.2020 16:56
Var
a:array [1..10] of integer;
i,sum,kol:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i] mod 2=0 then sum:=sum+a[i] else kol:=kol+1;
writeln(sum);
writeln(kol);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика