Вводятся целые числа A и B. Выведите среднее арифметическое всех неотрицательных чисел от A до B
Нужно составить программу в паскале.

1 способ 
var 
a, b: integer;

begin 
write(Введите a: );   
readln(a);   
write(Введите b: ); 
readln(b); 
var x := Range(a, b); 
writeln(Последовательность: ); 
x.Println; 
writeln(Ср. ариф. неотриц чисел: ); 
writeln(x.Where(x -> x >= 0).Average);
end.

2 способ
var  a, b,i,s: integer;  k: real;

begin  
write(Введите a: );    
readln(a);    
write(Введите b: );  
readln(b); 
writeln(Последовательность: );  
for i:=a to b do  write(i, );
writeln();
s:=0;
for i:=a to b do    
if i>=0 then begin   
s:=s+i;   
k:=k+1;
end;
writeln(Ср. ариф. неотриц чисел: ); 
write(s/k);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.