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

Программа на языке Pascal для нахождения среднего арифметического всех неотрицательных чисел от a до b выглядит следующим образом:

program AverageCalculation;

var
  a, b, sum, count, num: integer;
  average: real;

begin
  // Ввод чисел a и b
  writeln('Введите значения чисел a и b:');
  readln(a, b);
  
  // Инициализация переменных
  sum := 0;  // Сумма неотрицательных чисел
  count := 0;  // Количество неотрицательных чисел
  
  // Вычисление суммы и количества неотрицательных чисел
  for num := a to b do
  begin
    if num >= 0 then
    begin
      sum := sum + num;
      count := count + 1;
    end;
  end;
  
  // Вычисление среднего арифметического
  average := sum / count;
  
  // Вывод среднего арифметического
  writeln('Среднее арифметическое всех неотрицательных чисел от ', a, ' до ', b, ' равно ', average:0:2);
  
  // Ожидание нажатия клавиши перед закрытием программы
  writeln('Для завершения программы нажмите любую клавишу');
  readln;
  
end.

Программа сначала предлагает ввести значения чисел a и b. Затем запускается цикл, который проходит через все числа от a до b. Если число неотрицательное, то оно добавляется к сумме и увеличивается счетчик количества неотрицательных чисел. После завершения цикла вычисляется среднее арифметическое путем деления суммы на количество. Результат выводится на экран с двумя знаками после запятой. После этого программа ожидает нажатия клавиши перед закрытием.