Pascal | написать программу

[Inklet]

Помогите написать программу в pascal, а то я нихрена не понимаю его

Найти среднее арифмитическое значение квадрата элементов массива.
Ограничения:
-число элементов в массиве не более 10-ти.
Порядок ввода исходных данных:
-число элементов в массиве,
-элементы массива.
Порядок вывода результатов:
-среднее арифмитичесоке значение с точностью до одного знака после запятой;
ограничить ширину поля вывода результатов 9-ю позициями.

[derElektroBesen]

Я думаю здесь Вам вряд ли помогут написать программу =)
Помочь - могут, написать - крайне маловероятно. Опишите проблему, ответют

[Zer0]

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.

написано на скорую руку, так что не обессудьте

[denisbrain]

Сообщение от Zer0

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.

написано на скорую руку, так что не обессудьте

во фриланс перенесли типа денег больше будет?

[sheka]

255507394.

[Developer2]

Пиши, сделаю
icq: 588002847
email: flash_1989@ukr.net
skype: rfhfcerf