Дана таблица из 15 целых чисел. найти среднее значение квадратов этих чисел.

12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 program sort; type   a=array[1..1000]of integer; var m: a; i,n: integer; procedure sortm(var m: a; n: integer); //сортировка массива var i,j,buf: integer; begin for i: =1 to n do for j: =i+1 to n do if(m[i]> m[j]) then begin buf: =m[j]; m[j]: =m[i]; m[i]: =buf; end; end; begin randomize; read(n); for i: =1 to n do m[i]: =random(999); sortm(m,n); for i: =1 to n do write(' ',m[i]); end.

program halfsum

uses crt;  

var a,b,tmp: real;

begin 

      clrscr;

      write('введите первое число: ');

      readln(a);    

      write('введите второе число: ');

      readln(b);

      tmp: =(a+b)/2;

      a: =tmp;  

 

      writeln(' первое число после замены: ',a);  

    readkey;

 

end. 

 

 

program fibonacci;

uses crt;

var   i,n: integer;

  {итерационный метод вычисления чисел фибоначчи}

function fib_it(n: integer): integer;

var a,b,c,i: integer;

begin

      a: =1; b: =1;

      if (n=1) or (n=2) then  fib_it: =1

        else     begin

                        for i: =3 to n do 

                                  begin

                                    c: =a+b;

                                      a: =b;  

 

                                        b: =c;  

                                end;        

 

                          fib_it: =c;

                    end;      

 

  end;

 

     

 

{main program}

begin

      clrscr;

 

      write('введите n: ');

      readln(n);

 

      for i: =1 to n do write(fib_it(i),'   ');  

 

      readkey;

 

end.