Даны осадки за 21 день нужно составить массив из средних значений за неделю

const n=21;

var a: array[1..n] of integer;

sr: array[1..3] of real;

k,s,i,j: integer;

begin

randomize;

for i: =1 to n do

begin

a[i]: =random(11);

write(a[i],' ');

end;

writeln;

k: =n div 3;

for j: =0 to 2 do

begin

s: =0;

for i: =1 to k do s: =s+a[j*k+i];

sr[j+1]: =s/k;

end;

for j: =1 to 3 do write(sr[j]: 4: 2,' ');

end.

пример:

3 5 9 10 10 7 7 3 2 10 3 6 5 10 1 7 8 6 9 5 6  

7.29 5.57 6.00

Using  system; namespace  matrix {         class  mainclass         {                 private  static  int  size;     //  размер  матрицы                 public  static  void  main  (string[]  args)                 {                         size  =  int16.parse(console.readline  ;                         int[,]  matrix  =  new  int[size,  size];                         for  (int  i  =  0;   i  <   size;   i++)  {                                 for  (int  j  =  0;   j  <   size;   j++)  {                                         if  (i  ==  0  ||  j  ==  0  ||  i  ==  (size  -  1)  ||  j  ==  (size  -  1)){                                                 matrix  [i,  j]  =  1;                                         }  else  {                                                 matrix  [i,  j]  =  0;                                         }                                 }                         }                         /*for  (int  i  =  0;   i  <   size;   i++)  {    //  вывод  матрицы  в  консоль                                 for  (int  j  =  0;   j  <   size;   j++)  {                                         console.write  (matrix  [i,  j]);                                 }                                 console.writeline  ();                         }*/                 }         }}

Код pascal: const     n = 13; type     mass = array[1..n] of real; function kl(var a: mass; c: real): integer; var     k,i: integer; begin k: =0; for i: = 1 to n do     if a[i] > c then k: =k+1; kl: =k; end; var     a: mass;     i: integer;     c: real; begin randomize; write('a(',n,'): '); for i: = 1 to n do     begin     a[i]: =random*21-10;     write(' ',a[i]: 0: 3);     end; writeln; write('c = '); readln(c); writeln('k = ',kl(a,c)) end. пример работы программы: a(13): -2.768 10.516 -3.518 9.286 5.555 1.039 1.225 -6.135 8.743 7.440 -3.979 6.129 -7.982 c = 3 k = 6