Question

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

Answer 1

2)program abc;
var i,b,a,s:integer;
begin
read(a,b);
i:=0;
s:=a;
for i:=1 to b-1 do
s:=s*a ;
writeln(s);
end.

Answer 2

1)program abc;
var i,b,a,s:integer;
begin
read(b);
for i:=1 to b do
begin
read(a);
s:=s+(a*a)
end;
writeln(s/b);
end.