Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Написать в системе паскаль средний балл мойх оценок.: 3,4,5,4,4,3,4,4,5,4,4,3,3,4,4,4,3

Ответ оставил Гость

const

  n = 17; //Количество оценок

var

  a : array [1..n] of integer;

  i, sum : integer;

begin

  sum := 0;

  for i := 1 to n do read (a[i]);

  for i := 1 to n do inc (sum, a[i]);

  writeln (sum / n);

end.