Question

помогите решить то, что на фото

Answer 1

Крч, Паскаль, вот код:
  var a:array[1..7] of longint;i,k:longint;begin for i:=1 to 7 do  read(a[i]); k:=0; for i:=1 to 7 do  k:=k+a[i]; writeln(k/7:0:2)end.