Известны оценки по алгебре каждого ученика класса. Найти среднюю оценку.

Question

Известны оценки по алгебре каждого ученика класса. Найти среднюю оценку.

Comments

надо программу или алгоритм? что?

---

Нужно решить по Паскалю

---

массив проходили?

---

нет

---

Помогите срочно Пожалуйста

---

нельзя без массива

---

тогда давайте с массивом

---

нужна программа

---

программа для Лазаруса

Answer 1

Var mas:array [1..30] of integer;
i,sum:integer;
Begin 
   write('Введите оценки:  '); 
     for i:=1 to 30 do readln(mas[i]); 
        for i:=1 to 30 do sum:=sum+mas[i];
Writeln('Средний балл: ',sum/30);
End.