Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Даны натуральное число n и целые числа a1, a2,...an. Получить:

а)а1-а2+а3-...;

б)а1+аn;

в)а1-а2.
Пожалуйста, ребятушки, в паскале.
Очень ваша помощь нужна;*

Ответ оставил Гость

var a:array[1..1000] of integer;

n,i,s1,s2,s3:integer;

s1:=0;

read(n);

for i:=1 to n do

read(a[i]);

for i:=1 to n do

if i mod 2 = 1 then s1:=s1+a[i] else s1:=s1-a[i];

s2:=a[1]+a[n];

s3:=a[1]-a[2];

writeln(s1, ,s2, s3);

end.