Question

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

Answer 1

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.

Answer 2

А можно без x.Prinln , var x:=Range , x.Where?

Answer 3

обнови

Answer 4

я добавил 2 вариант

Answer 5

Спасибо огромнейшее просто!