В аттестате содержатся следующиее оценки 3,4,5,5,4,3,4,5,3,4,3,3,4.5.Найдите средний балл

Question

В аттестате содержатся следующиее оценки 3,4,5,5,4,3,4,5,3,4,3,3,4.5.Найдите средний балл

Answer 1

Program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, s:integer;
begin
   writeln('Enter 14 marks');
   readln(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14);         
   s:=(a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14) div 14;
   writeln('Average ', s);
   readln
end.

НАЗВАНИЕ ПРОГРАММЫ - замените на название программы (на
 англ.).
Программа проверена в Borland Delphi 7. 

Comments

спасибо большое очень помог

Answer 2

3+4+5+5+4+3+4+5+3+4+3+3+4+5=55, а теперь это число делим на количество оценок 55/14=3,92

Comments

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