program help;
var x : array[1..5] of integer;
i,s : integer;
begin
for i := 1 to 5 do
s := s + x[i];
writeln(s/5);
end.
Скриншоты:
В скриншотах присутствует временное присваивание массиву (присваивание оценок). Это так. Для наглядности. Выше, я написал сам алгоритм, с неизвестными оценками.