Написать программу вычисления среднего балла за экзамен по математике массив от 1 до 30

Question

Написать программу вычисления среднего балла за экзамен по математике массив от 1 до 30

Comments

На любом языке?

---

Pascal

---

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

---

можно и без массива обойтись

Answer 1

Program p1;
uses crt;
var a:array[1..30] of integer;
sr,s:real;
i:integer;
begin
 for i:=1 to 30 do begin
  read(a[i]);
   s:=s+a[i];
   end;
   sr:=s/30;
   write(sr);
end.