Показать сообщение отдельно

  #10  
Старый 15.05.2009, 20:57
Fata1ex
Постоянный
Регистрация: 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.
 
Ответить с цитированием