Pascal среднее значение квадрата элементов массива

[Inklet]

вот код=)

const max=10;

 var i,c:integer; s:real; a:array[1..max] of real;
 begin
 write ('Size = '); readln(c);
 s:=0;
 for i:=1 to c do begin
 write ('A[',i,'] = '); readln(a[i]);
 s:=s+a[i]*a[i];
 end;
 s:=s/c;
 writeln ('Result = ',s:9:1);
 end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Zer0]

Inklet, ай-ай-ай, ну хоть бы названия переменных поменяли