По заданной последовательности целых чисел выведите ее альтернированную сумму

@abaranci · Регистрация: 09.01.2015

Студворк — интернет-сервис помощи студентам

Альтернированной суммой заданной последовательности n чисел a1, a2,..., an называется число s=a1-a2+a3-a4+.... В альтернированной сумме знаки слагаемых чередуются, альтернация начинается со знака "+".

По заданной последовательности целых чисел выведите ее альтернированную сумму.

Входные данные
В первой строке задано целое число n (1 ≤ n ≤ 10000). Вторая строка содержит n целых чисел, каждое от 1 до 10000 включительно.

Выходные данные
Выведите искомую альтернированную сумму.
input.txt 5; 10 7 9 7 9
output.txt 14

Помогите пожалуйста . Язык паскаль

Вот как я решил но тесты не проходит

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
n,i,s:integer;
a:array[1..10000] of integer;
b:array[1..10000] of integer;
begin
s:=0;
readln(n);
for i:=1 to n do
readln(a[i]);
a[n+1]:=0;
i:=1;
while i<=n do begin 
b[i]:=a[i]-a[i+1];
s:=s+b[i];  inc(i,2); end;
writeln(s);
end.

@Puporev · 09.01.2015, 17:38

Pascal
1
2
3
4
5
6
7
8
9
readln(n);
z:=1;
s:=0;
for i:=1 to n do
 begin
  read(a); //числа записаны в строке через пробелы
  s:=s+z*a;
  z:=-z
 end;

@abaranci · 09.01.2015, 17:46 **[ТС]**

Набирает 14 баллов как и моя

@Puporev · 09.01.2015, 17:54

Сообщение от abaranci

но тесты не проходит

Так нужно писать программу в соответствии с требованиями тестирующей системы.
Никаких массивов, ввод из потока(файла) никаких readln и writeln, короче прочитайте там правила.

@abaranci · 09.01.2015, 18:13 **[ТС]**

не в этом дело я уже исправил .

@CodeR · 10.01.2015, 11:18

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Var f,g:text;
    s,m,zn,n,i:integer;
Begin
    Assign(f,'input.txt');Reset(f);
    readln(f,n);
    zn:=1;
    For i:=1 to n do
    Begin
      read(f,m);
      s:=s+m*zn;
      zn:=zn*(-1);
    End;
    Close(f);
    Assign(g,'output.txt');Rewrite(g);
    write(g,s);
    Close(g);
    writeln('Результат в файле "output.txt"');
End.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@abaranci 0 / 0 / 0 Регистрация: 09.01.2015 Сообщений: 74
	09.01.2015, 17:46 [ТС]
	Набирает 14 баллов как и моя 0

@abaranci 0 / 0 / 0 Регистрация: 09.01.2015 Сообщений: 74
	09.01.2015, 18:13 [ТС]
	не в этом дело я уже исправил . 0

По заданной последовательности целых чисел выведите ее альтернированную сумму

Решение