Дан одномерный массив, который содержит не более 10 целых чисел. Найти среднее…

uses crt; vari, k: integer; a,k2: real; mas, ma: array [1… 10] of integer; beginrandomize; write (' razmer massiva='); readln (k); for i: =1 to k domas[i]: =random (10); for i: =1 to k dowrite (mas[i],'); for i: =1 to k doif i mod 2<>0 then a: =mas[i]+a; writeln; if k mod 2<> 0 then begin k: =k+1; k2: =k/2; end else k2: =k/2; a: =a/k2; write ('sredn znach=',a); readkey; end.