Question

Срочно!!! Створіть проект для обчислення середнього арифметичного додатних чисел серед чисел, перше з яких дорівнює 100, а кожне наступне менше від попереднього на задане додатне число. Збережіть проект у папці з іменем Завдання 6.7.7, створеній у вашій папці.​ Язик лазарус

Answer 1

program AveragePositiveNumbers;

var

 startNumber, difference, numCount, sum, i: Integer;

 average: Double;

begin

 // Введення початкового числа

 Write('Введіть початкове число: ');

 ReadLn(startNumber);

 // Введення різниці між числами

 Write('Введіть різницю між числами: ');

 ReadLn(difference);

 // Введення кількості чисел для обчислення середнього

 Write('Введіть кількість чисел для обчислення середнього: ');

 ReadLn(numCount);

 sum := 0;

 // Обчислення суми додатних чисел

 for i := 1 to numCount do

 begin

   if startNumber > 0 then

   begin

     sum := sum + startNumber;

   end;

   startNumber := startNumber - difference;

 end;

 // Обчислення середнього арифметичного

 average := sum / numCount;

 // Виведення результату

 WriteLn('Середнє арифметичне додатніх чисел: ', average:0:2);

 ReadLn;

end.