Подсчёт баллов за задачу - PascalABC.NET

Формулировка задачи:

Условие

В одной из задач итоговой олимпиады летней школы по информатике имеется N тестов. i-ый тест оценивается в ai баллов. Итоговый балл за задачу — сумма баллов за каждый тест, ответ на который является правильным. По имеющейся информации о баллах за каждый тест и пройденных тестах требуется рассчитать итоговый балл за задачу.

Формат входного файла

В первой содержится единственное число N. Во второй содержатся N чисел — на i-ом месте находятся баллы за i-ый тест. В файла содержаться N символов '+' (ASCII 43) или '-' (ASCII 45). Если ответ на i-ый тест верный, то i-ый символ — '+', в противном случае — '-'

Формат выходного файла

Выходной файл должен содержать единственное число — количество баллов за задачу.

Ограничения

1 ≤ N ≤ 100 1 ≤ ai ≤ 100

Решение задачи: «Подсчёт баллов за задачу»

Листинг программы

var n,i,s:integer;
    a:array[1..100] of integer;
    c:char;
    input,output:text;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
read(input,n);
s:=0;
for i:=1 to n do read(input,a[i]);
for i:=1 to n do
 begin
  read(input,c);
  if c='+' then s:=s+a[i];
 end;
writeln(output,s);
close(input);
close(output);
end.

Объяснение кода листинга программы

Объявлены переменные: n, i, s (количество задач, номер задачи, сумма баллов) типа integer; a (массив для хранения баллов), c (для хранения символа условия задачи) типа array[1..100] of integer и char соответственно.
Задаются пути для файлов ввода и вывода: input — 'input.txt', output — 'output.txt'.
Открываются файлы input и output для чтения и записи соответственно.
Считывается количество задач из файла input и сохраняется в переменной n.
Считываются баллы для каждой задачи из файла input и сохраняются в массиве a.
Считывается символ условия задачи из файла input и сохраняется в переменной c.
Если символ условия задачи равен '+', то к переменной s прибавляется значение элемента массива a, соответствующего текущей задаче.
Записывается значение переменной s в файл output.
Закрываются файлы input и output.