Помогите решить задачу по информатике(Используя PascalABC).

Question

Помогите решить задачу по информатике(Используя PascalABC).

Кирилл Ханько Ученик (115), открыт 6 часов назад

Массив содержит информацию об отметках по информатике 10 учащихся класса. Отметки вводятся с клавиатуры. Вычислите средний балл по предмету и количество учащихся с отметками выше среднего класса. Нужно использовать var a: array[1..10] of integer;

Answer 1

 program grade; 
 
var 
  i, n, s: Integer; 
  av: Real;  
  a: array[1..10] of integer; 
 
begin 
  n := 0; 
  s := 0; 
  WriteLn('Введите десять отметок: '); 
  for i := 1 to 10 do 
  begin 
    ReadLn(a[i]); 
    s := s + a[i];   
  end; 
   
  av := s / 10; 
   
  for i := 1 to 10 do 
  begin 
    if a[i] > av then 
      Inc(n);      
  end; 
   
  WriteLn('Средний балл по предмету: ', av); 
  WriteLn('Количество учащихся с отметками выше среднего: ', n); 
end.