Нужно исправить третью с конца строчку на-->
if a[k]<0 then s:=s+a[k]; (так как в случае, если число отрицательно,то мы к сумме прибавляем это число)
(в строчке на фото в случае, если число отрицательно, мы прибавляли всегда первый элемент)
Ответ:
а где фото или задание???
Решение вроде такое , это же.изи
Переводим 16-ю СС в 8-ю это будет 64 и складываем 27+64=113 в 8-ой СС
Program n1;
var a: real;
begin
readln(a);
if a>10 then write(a)
else if a<3 then write(a+11)
else writeln(a-100);
end.