Срочно!!! Створіть проект для обчислення середнього арифметичного додатних чисел серед чисел, перше з яких дорівнює 100, а кожне наступне менше від попереднього на задане додатне число. Збережіть проект у папці з іменем Завдання 6.7.7, створеній у вашій папці. Язик
лазарус
Ответы
program CalculateAverage;
var
n: Integer; // Кількість чисел
difference: Integer; // Різниця між числами
num: Integer; // Початкове число
sum: Integer; // Сума чисел
positiveCount: Integer; // Кількість додатних чисел
average: Double; // Середнє арифметичне
begin
// Введення значень
Write('Кількість чисел: ');
ReadLn(n);
Write('Різниця між числами: ');
ReadLn(difference);
Write('Початкове число: ');
ReadLn(num);
// Ініціалізація змінних
sum := 0;
positiveCount := 0;
// Обчислення суми додатніх чисел
for var i := 1 to n do
begin
if num > 0 then
begin
sum := sum + num;
Inc(positiveCount);
end;
num := num - difference;
end;
// Обчислення середнього арифметичного
if positiveCount > 0 then
average := sum / positiveCount
else
average := 0;
// Виведення результату
WriteLn('Середнє арифметичне додатніх чисел: ', average);
// Завершення програми
ReadLn;
end.
Цей код запитує користувача про кількість чисел, різницю між ними та початкове число. Він обчислює суму додатніх чисел та їх середнє арифметичне і виводить результат на екран.