1. Ответ: 47
2. Ответ: 2209
3. Ответ: 8836
Нужно исправить третью с конца строчку на-->
if a[k]<0 then s:=s+a[k]; (так как в случае, если число отрицательно,то мы к сумме прибавляем это число)
(в строчке на фото в случае, если число отрицательно, мы прибавляли всегда первый элемент)
1- персонажи сказки Буратино
2- русские народные сказки
3- города РФ
4- реки РФ
5- города
Program z1;
var a,b,c:real;
begin
writeln('введите 2 числа');
readln(a,b);
if (a>b) then c:=a/b
else c:=b/a;
writeln(c);
end.