Найти сумму ряда - PascalABC.NET (24596)
Формулировка задачи:
Дан линейный вещественный массив а. Найти : a[1]a[2]+ a[2]a[3]+...+ a[n-1]a[n].
Помогитеее
Решение задачи: «Найти сумму ряда»
textual
Листинг программы
rez:=0; for i: =1 to n -1 do rez :=rez + a[i]*a[i+1];