fork download
copy 
  1. program average;
  2. uses math;
  3.  
  4. var
  5.   p, sum, n, i: integer;
  6.   av, variance, stddev: real;
  7.   data: array[1..1000] of integer;
  8.  
  9. begin
  10.   sum := 0;
  11.   n := 0;
  12.  
  13.   writeln('データの個数を入力してください:');
  14.   readln(n);
  15.  
  16.   writeln('データを ', n, ' 個入力してください:');
  17.   for i := 1 to n do
  18.   begin
  19.     readln(p);
  20.     data[i] := p;
  21.     sum := sum + p;
  22.   end;
  23.  
  24.   av := sum / n;
  25.  
  26.   variance := 0;
  27.   for i := 1 to n do
  28.     variance := variance + sqr(data[i] - av);
  29.  
  30.   variance := variance / n;
  31.   stddev := sqrt(variance);
  32.  
  33.   writeln('合計=', sum, ' 件数=', n, ' 平均=', av:4:2);
  34.   writeln('標準偏差=', stddev:4:2); 
  35. end.
  36.  
Success #stdin #stdout 0.01s 5320KB
comments (?)
stdin
copy 
5
18
21
34
78
27
stdout
copy 
データの個数を入力してください:
データを 5 個入力してください:
合計=178 件数=5 平均=35.60
標準偏差=21.90
https://ideone.com/lbsabX
language:
Pascal (fpc 3.0.4)
created:
11 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!