1)с клавиатуры вводятся количество целых чисел и сами числа. найти среднее арифметическое квадратов введенных чисел 2)с

1)program abc;var i, b, a, s : integer;beginread ( b ) ;for i : = 1 to b dobegin read ( a );s : = s + ( a * a )end;writeln ( s / b );end. 2)program abc;var i, b , a , s : integer;beginread ( a , b );i : = 0;s : = a;for i : = 1 to b-1 dos : = s * a ;writeln ( s );end.