Если это задали в школе/университете, то это очень странно. Предоставленная строка может быть случайной, а может быть хэш-суммой. Длина суммы — 128 бит. Популярные хэш-функции с такой длиной — MD2, MD4, MD5. И исходную строку получить очень проблематично. Так что лучше забыть про эту строку. Для поиска значения может " " перебор (нет), либо поиск по базе уже найденных значений хэш-функций (я поискал в бесплатных онлайн базах, но положительного результата не получил). На этом, как бы, мои полномочия все.
Ошибка 1. Объявлен массив с типом данных значений string, хотя нужно заполнять массив целыми числами, а потом находить их сумму. Необходимо заменить тип string на integer.
Ошибка 2. Цикл не выполнится ни один раз, т.к. неправильно задан параметр. Необходимо либо написать конструкцию так: For i:=n downto 1 do , либо For i:=1 to n do .
Исправленный код:
Program summa;
Var a: array[1..100] of integer;
i, n: integer;
s: integer;
Begin
Write ('n='); Readln (n);
For i:=1 to n do
begin
write ('введите число');
readln (a[i]);
s:=s+a[i];
end;
writeln('сумма элементов равна ',s);
End.
