В В5 ответом будет 7, точно такой же ответ в B4
Плохая масштабируемость, большой размер файлов.
Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');
//PascalABC.Net v3.1
var n:integer;
begin
readln(n);
if n mod 2 = 0 then n:=n*4 else n:=n+1;
writeln(n);
end.
В конце можно добавить вывод числа i - номера дня, в который спортсмен пробежит больше 20 км в первый раз.