Пастель(массив)прошу помочь.

[lompart251]

Прошу помочь.Понимаю как написать программу,но рассчет не могу сделать. Напишите плиз прошу и расчет, сравним. Буду признателен.

[Mad_Cat]

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

на каком языке то?

[lompart251]

На языке паскаль

[SaLoKiN]

формула непонятна!
S= сумма(H_l / l^2) ?
Тогда в чем проблема?
При известных H1...H10

S=H1/1^2+H2/2^2+H3/3^2+...H10/10^2

[Mad_Cat]

var s:real;
H:array[1..10] of real;
i:byte;
m:real;
begin
s:=0;
m:=99999999;
for i:=1 to 10 do
begin
Readln(h[i]);
if h[i]<m then m:=h[i];
s:=s+h[i]/i/i;
end;
writeln(s/m);
end.

[SaLoKiN]

Mad_Cat
ох и балуете вы их :-)
особенно радует название топика