Question

У багаторядковому текстовому полі містяться 8 оцінок учня/учениці, отриманих протягом вивчення теми. Визначте середню оцінку учня/учениці за тему. Визначте, скільки оцінок вище ніж 7
мова програмування Lazarus
ДАЮ 40 БАЛОВ!

Answer 1

Ответ:

Нижче поданий код на мові програмування Lazarus, який дозволяє вирішити дану задачу:
program AverageGrade;

var

 grades: array[1..8] of integer;

 i, sum, aboveSeven: integer;

 average: real;

begin

 sum := 0;

 aboveSeven := 0;

 // Ввід оцінок

 writeln('Введіть 8 оцінок:');

 for i := 1 to 8 do

 begin

   readln(grades[i]);

   sum := sum + grades[i];

   if grades[i] > 7 then

     aboveSeven := aboveSeven + 1;

 end;

 // Обчислення середньої оцінки

 average := sum / 8;

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

 writeln('Середня оцінка: ', average:0:2);

 writeln('Кількість оцінок вище 7: ', aboveSeven);

 

 readln;

end.

Объяснение:

У даному коді використовується масив 'grades' для зберігання оцінок, які вводяться користувачем з клавіатури. За допомогою циклу 'for' проходиться по всіх елементах масиву та обчислюється сума оцінок та кількість оцінок вище 7. Після цього, середня оцінка обчислюється як сума оцінок, поділена на кількість оцінок (у даному випадку - 8). Результати виводяться на екран за допомогою процедури 'writeln'