Дан массив из 10 элементов.
1. Найти сумму чётных элементов
2.Найти произведения элементов,стоящмх на нечетных местах
3.Найти количество элементов больше трех
1. Найти сумму чётных элементов
2.Найти произведения элементов,стоящмх на нечетных местах
3.Найти количество элементов больше трех
More Questions From This User See All
Answers & Comments
i,k1,k2,k3:integer;
begin;
randomize;
k2:=1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if odd(i) then k2:=k2*ar[i] else k1:=k1+ar[i];
if ar[i]>3 then inc(k3);
end;
writeln;
writeln('1:',k1);
writeln('2:',k2);
writeln('3:',k3);
end.