Предмет: Информатика,
автор: оlesya
дано натуральное n
действительные а1 а2... аn (а энное)
получить а1а2+а2а3....аn-1an
в паскале
заранее спасибо!
Ответы
Автор ответа:
0
var
a:array[1..500] of integer;
i,k,n:integer;
begin
k:=0;
write('n= ');
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
k:=k+a[i]*a[i+1];
writeln(k);
end.
Похожие вопросы
Предмет: Русский язык,
автор: daniilakimov2008
Предмет: Алгебра,
автор: nastkasav1210
Предмет: Геометрия,
автор: vlngl
Предмет: Геометрия,
автор: denis4626