Вмассиве из 10 вещественных чисел вычислить среднее арифметическое массива, стоящих левее максимального. составить программу на языке паскаль. надо.

uses crt; var  a: array [1..10] of integer;   i,max,k,n: integer; sr: real; begin  clrscr; randomize;

  writeln('массив: ');   for i: =1 to 10 do  begin    a[i]: =random(100);     write(a[i],' ');   end;   writeln;   max: =a[1];   for i: =1 to 10 do    if a[i]> max then    begin      max: =a[i];       n: =i;     end;   writeln('максимальный элемент массива: ',max);   for n: =n+1 to 10 do  begin    sr: =sr+a[n];     k: =k+1;   end;   write('среднее чисел, стоящих левее максимального: ',(sr/k)); end.

// pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =9;   writeln('*** исходная матрица ***');   var a: =new real[n,m];   randomize;   for var i: =0 to n-1 do       for var j: =0 to m-1 do           a[i,j]: =random(-100,100)/10;   a.println(5,1); writeln(5*a.colcount*'-');   var col: =1;   write('средние арифметические: ');   while col< =m-1 do begin       write(a.col(col).average: 0: 2,' ');       col+=2       end;   writeln end. пример количество строк в матрице: 6 *** исходная матрица ***   9.6 -4.5  0.2 -7.6  5.4 -4.8 -0.1 -8.6  9.3   -3.6 -3.3 -4.6 -4.6 -2.0 -7.3  5.4  5.1 -9.3   3.2  1.0 -8.1 -5.9 -6.1  9.8 -0.7 -2.5 -1.5   -3.0-10.0 -7.4 -6.7  9.6 -2.1  9.3 -4.6 -3.8   9.7 -7.8  3.1  0.9 -3.0  5.4  9.7  2.9 -9.6   -3.3  4.4 -1.7 -5.0  8.5  0.9 -3.9 -3.4  1.3 средние арифметические: -3.37 -4.82 0.32 -1.85

#include < iostream> #include < iomanip> using namespace std; double fuct(int a){     if (a==1 || a==0)     return 1;     else if (a==2)         return 2; else return a * fuct(a-1); } int main() {     int n; double i,sum=1; cin> > n; if (n> 8)     n=8; for (i=1; i< =n; i++)     sum=sum+1/fuct(i);     cout< < fixed< < setprecision(5)< < sum; }