Question

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

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.