Programalama > PASCAL

program hesap;
uses crt;
        VAR dosya:text;
        i,j,k,top,n:integer;
        ort,top1,r:real;
        x:array[1..10] of integer;

        BEGIN
         clrscr;
        assign(dosya,'tas.txt');
        reset(dosya);
        for i:=1 to 10 do
        readln(dosya,x[i]);
        top:=0;
        for j:=0 to 10 do
        top:=top+x[i];
        ort:=top/10;
        for k:=1 to 10 do
        top1:=top1+(ort-x[i])*(ort-x[i]);
        r:=sqrt(top1/9);
        append(dosya);
        writeln(dosya,r:0:0);
        close(dosya);
        reset(dosya);
        close(dosya);
        end.