В классе 35 человек. Последовательно вводятся оценки учеников за контрольную работу. Найдите средний балл и количество

Я предлагаю решение этой задачи на языке программирования Pascal ABC. В процессе решения будем использовать одномерный массив a, который будет содержать отметки 35 учащихся. Значения массива будут иметь целый тип (integer), т. к. отметки - это целые числа. Обозначим порядковый номер каждого элемента массива буквой i. Значения i будут изменяться от 1 до 35. Значение каждой отметки в массиве обозначим a[i]. Кроме того мы будем вычислять сумму элементов массива s и количество пятерок k. Все они также будут иметь тип integer. Средний балл обозначим sr, и он будет иметь вещественный тип (real). Алгоритм решения задачи может выглядеть так:program zadacha;uses crt;var i,n,s,k:integer;a: array [1..35] of integer;sr:real;begins:=0; k:=0; {Начальные значения s и k}for i:=1 to 35 do beginwriteln(\'vvedite otmetku\');read(a[i]);if a[i]=5 then k:=k+1; {Подсчет количества пятерок}s:=s+a[i]; {Вычисление суммы элементов массива}end;sr:=s/10;writeln(\'sr=\',\' \',sr);writeln(\'k=\',\' \',k);end.