Помогите решить задачу по програмируванию:Знайти суму 1-го ,3-го,5-го...19-го елементів...

Question

Помогите решить задачу по програмируванию:Знайти суму 1-го ,3-го,5-го...19-го елементів масиву з 20 дійсних чисел.Будь ласка дуже потрібно.

Answer 1

Const n=20; 
var a:array[1..n] of real;
i:integer; s:real;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=10*random;
 write(a[i]:5:1);
 end;
writeln;
s:=0; 
for i:=1 to n do
 if i mod 2 <> 0 then s:=s+a[i];
writeln('S = ',s:5:2)
end.
Пример (для 10 чисел):
Исходный массив:
  1.0  2.2  7.2  8.4  8.6  7.5  3.9  0.3  6.8  5.2
S = 27.63