Написать код на паскаль Чтобы подсчитывал средний по оценкаи
Пример
Водишь оценки 54345 и выдает средний

program E9;

var

 a, sr, sra: real;

 i, n:integer;

begin

 a:=0;

 writeln('Введите кол-во оценок:');

 readln(n);

 for i:=1 to n do begin

 writeln('Введите оценку:');

 readln(a);

 sra:=sra+a;

 end;

 sr:=sra/n;

 writeln('Среднее знач = ',sr);

end.

Объяснение:

Просто скопируй и вставь код

var N,oc,S,i:integer;

   SR:real;

begin

 write ('Всего оценок: ');

 read (N);

 S:=0;

 for i:=1 to N do

 begin

   read (oc);

   S:=S+oc;

 end;

 Sr:=S/N;

 Write('Cредний : ',Sr)

end.