Question

Массив содержит информацию об отметках по информатике учащихся класса. (Количество человек – 10 + № компьютера). Отметки – случайные числа из диапазона от 1 до 10. Составьте программу, которая вычисляет средний балл по предмету. Программа PascalABC.net

Answer 1

Ответ:

Объяснение:

PascalABC.NET program

program AverageScore;

const

 NumberOfStudents = 10;

var

 grades: array[1..NumberOfStudents] of array[1..10] of Integer;

 subject: Integer;

 i, j: Integer;

 totalScore: Integer;

 averageScore: Real;

begin

 // Initialize the grades array with random values (for demonstration purposes)

 for i := 1 to NumberOfStudents do

   for j := 1 to 10 do

     grades[i][j] := Random(10) + 1; // Generates random numbers from 1 to 10

 

 // Prompt the user to enter the subject number

 Write('Enter the subject number (1 to 10): ');

 ReadLn(subject);

 // Calculate total score for the subject

 totalScore := 0;

 for i := 1 to NumberOfStudents do

   totalScore := totalScore + grades[i][subject];

 // Calculate the average score

 averageScore := totalScore / NumberOfStudents;

 // Display the results

 WriteLn('Grades for subject ', subject, ':');

 for i := 1 to NumberOfStudents do

   Write(grades[i][subject], ' ');

 WriteLn;

 WriteLn('Total Score: ', totalScore);

 WriteLn('Average Score: ', averageScore:0:2);

end.

Вот что делает эта программа:

Он определяет константу NumberOfStudents, для которой установлено значение 10.

Он объявляет двумерный массив оценок для хранения оценок каждого учащегося по каждому предмету.

Он предлагает пользователю ввести номер субъекта (от 1 до 10).

Он генерирует случайные оценки (от 1 до 10) для демонстрационных целей.

Он вычисляет общий балл по указанному предмету, а затем вычисляет средний балл.

Наконец, он отображает оценки по выбранному предмету, а также общий и средний баллы.