
15.05.2009, 20:57
|
|
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
С нами:
10216668
Репутация:
930
|
|
Код:
const
N=100;
var
a : array[1..N] of integer;
k, l, i, s : integer;
begin
//Считываешь параметры
s:=0;
for i:=k to l do
s:=s+a[i]
writeln(s/(l-k));
readln;
end.
|
|
|