прикладная математика

Добавлено (18.05.13, 12:39)
---------------------------------------------
Преподаватель ничего не объясняет,сказала,что арифмитическая прогрессия. Вот то, что в интернете есть, но такой способ не понятен. И результата не дает, среднее не выводит.

Добавлено (21.05.13, 07:06)
---------------------------------------------
uses CRT;
const n=50;
var
mas:array[1..n] of real;
i:integer;
sr:real;
Procedure input;
Begin
  sr:=0;
  for i:=1 to n do
    begin
    clrscr;
    writeln('Введите кол-во осадков в',i+1900,' году.');
    readln(mas);
    sr:=sr+mas;
    end;
  sr:=sr/n;
End;
Procedure proc;
Begin
  for i:=1 to n do
    if mas>sr then
      writeln('В ',1900+i,' кол-во осадков было на ',(mas-sr):0:2,'мл больше нормы.')
    else if mas<sr then
      writeln('В ',1900+i,' кол-во осадков было на ',(-1*(mas-sr)):3:2,'мл меньше нормы.')
    else
      writeln('В ',1900+i,' кол-во осадков было в норме.');
End;
BEGIN
  input;
  writeln('Среднее кол-во осадков=',sr:0:2,'.');
  proc;
  readln;
END.

Добавлено (28.05.13, 09:44)
---------------------------------------------