1. в одномерном массиве а(10) вычислить среднее арифметическое квадратов положительных элементов.

Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(10,-50,50); a.println;   a.where(x-> x> 0).select(x-> x*x).average.println end. пример 29 45 -32 -44 -48 25 8 -4 -25 -22 888.75

Pascal abc. var        a: array [1..10] of integer;     i,sum,k: integer; begin        for i: = 1 to 10 do begin                  a[i]: =random(100)-50;                   if a[i]> 0 then begin sum: =sum+sqr(a[i]); inc(k); end;                   write(a[i], ' ');           end;           writeln;           writeln(sum/k); end.