Помогите с одномерными массивами!!!

[Anton_XXX]

Нет, не то!!!
Вот это: Напишите программу, определяющую сумму
Х1+Х2-Х3-Х4+Х5+Х6-Х7+.... Здесь Xi - элементы массива.

[Oleg_Rus]

x1x2 - произведение x1 и x2? или я пчо-то не понял...

[Anton_XXX]

Вот это: Напишите программу, определяющую сумму:
Х1+Х2-Х3-Х4+Х5+Х6-Х7+.... Здесь Xi - элементы массива.

[somewhere]

C учетом того, что чередуются минусы и плюсы, тогда:

Код: Выделить всё

S := 0;
For I := 1 to N do
    If ((I-1) mod 4=2) or ((I-1) mod 4=3) 
        then S:=S-X[i] 
        else S:=S+X[i];

[Хыиуду]

Если уж совсем упрощать, то if (i-1)mod 4>1

[Anton_XXX]

Можете написать полностью, от program до end. Please!!!

[Колядин Максим]

Конечео, основное уже ведь есть.

Код: Выделить всё

uses crt;
const n=5; {сам меняй}
var sum, I, q: integer;
x: array [1..n] of integer;
begin
sum:= 0;
clrscr;
for i:= 1 to n do begin
write('Ввдеите элемент №',i,' - ');
readln(x[i]);
end;
For I := 1 to N do
    If ((I-1) mod 4=2) or ((I-1) mod 4=3) 
        then sum:=sum-X[i]
        else sum:=sum+X[i];

writeln('OTBET - ',sum);
readkey;
end.

Не помешало бы тебе благодарить людей, выполнявших за тебя работу...
(Somwhere, Oleg_rus, Хыиуду)

[Anton_XXX]

Большое спасибо вам!!!!!!