Среднее количество осадков

@Temaccc · Регистрация: 27.09.2012

Даны действительные числа (a1901, a1902...a1950) - количество осадков (в миллиметрах), выпавших в Москве в течение первых 50 лет нашего столетия. Надо вычислить среднее количество осадков и отклонение от среднего для каждого года.

@senich · 10.01.2013, 17:19

Pascal

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[i]);
    sr:=sr+mas[i];
    end;
  sr:=sr/n;
End;
Procedure proc;
Begin
  for i:=1 to n do
    if mas[i]>sr then
      writeln('В ',1900+i,' кол-во осадков было на ',(mas[i]-sr):0:2,'мл больше нормы.')
    else if mas[i]<sr then
      writeln('В ',1900+i,' кол-во осадков было на ',(-1*(mas[i]-sr)):3:2,'мл меньше нормы.')
    else
      writeln('В ',1900+i,' кол-во осадков было в норме.');
End;
BEGIN
  input;
  writeln('Среднее кол-во осадков=',sr:0:2,'.');
  proc;
  readln;
END.

@Temaccc 0 / 0 / 0 Регистрация: 27.09.2012 Сообщений: 14
		1
	Среднее количество осадков 10.01.2013, 16:03. Просмотров 3806. Ответов 1 Метки нет (Все метки) Даны действительные числа (a1901, a1902...a1950) - количество осадков (в миллиметрах), выпавших в Москве в течение первых 50 лет нашего столетия. Надо вычислить среднее количество осадков и отклонение от среднего для каждого года. 0

Опции темы

Среднее количество осадков

Решение