Дан одномерный массив вещественных чисел
произвольной размерности. Определить сумму тех
элементов, которые находятся на четных местах.
Надо программу написать в паскале
произвольной размерности. Определить сумму тех
элементов, которые находятся на четных местах.
Надо программу написать в паскале
More Questions From This User See All
Answers & Comments
Ответ:
var a[1..10] of integer;
c, i:integer;
begin
c:=0;
for i:=1 to 10 do a[i]:= random(10);
for i:=1 to 10 do
if (i mod 2 = 0) then c:= c + a[i];
write(c);
end.