Скодом на языке c(си найти среднее арифметическое элементов массива

Двойным циклом считаешь сумму всех элементов, потом делишь на произведение количества строк на количество сволбцов

Const     n = 33; var     a: array[1..n] of integer;     i,c,p: integer; begin c: =0; p: =0; randomize; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(2*n+1)-n;       write(' ',a[i]);       if a[i] mod 2 = 0 then c: =c+1;       if (a[i] mod 5 = 0)and(a[i] mod 10 < > 0) then p: =p+1       end; writeln; writeln('количество чётных чисел: ',c); writeln('количество чисел, оканчивающихся на 5: ',p); end.

Var a,b,c: byte; begin for a: = 1 to 9 do       for b: = a+1 to 9 do               for c: = b+1 to 9 do                       write(a,b,c,' ') end. var     p: real;     a: integer; begin p: =1; repeat read(a); if a mod 2 < > 0 then p: =p*a; until a = 0; writeln('p = ',p) end. var     n: integer; begin write('n = '); readln(n); for n: = 1 to n do       write(n*n,' ') end.