Question

мова паскаль.

задача: рядку  містяться 8 оцінок учня/учениці, отриманих протягом вивчення теми. Визначте середню оцінку учня/учениці за тему. Визначте, скільки оцінок вище ніж 7.  У результаті виконання проекту виводиться середня оцінка учня/учениці за тему і  скільки оцінок учня/учениці більше за 7.​

Answer 1

Ответ: Для вирішення даної задачі в мові Паскаль можна скористатись таким кодом:

Объяснение:

program AverageGrade;

var

 i, sum, count: integer;

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

 average: real;

begin

 sum := 0;

 count := 0;

 

 // ввід оцінок у масив

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

 for i := 1 to 8 do

 begin

   readln(grade[i]);

   sum := sum + grade[i];

   if grade[i] > 7 then

     count := count + 1;

 end;

 

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

 average := sum / 8;

 

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

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

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

 

 readln;

end.