Question

В ряду находятся 12 оценок Василия, нужно найти среднюю оценку Василия. Так же, необходимо найти сколько оценок Василя меньше за 9.

Решение с помощью одномерных массивов, на языке программирования Паскаль.
Заранее Благодарю.

Answer 1

program average_grade;

var

 grades: array[1..12] of integer; // массив для хранения оценок

 sum, count: integer;

 i: integer;

begin

 // Заполнение массива оценок

 for i := 1 to 12 do begin

   write('Введите оценку ', i, ': ');

   readln(grades[i]);

 end;

 // Подсчет средней оценки

 sum := 0;

 for i := 1 to 12 do begin

   sum := sum + grades[i];

 end;

 writeln('Средняя оценка: ', sum / 12:0:2);

 // Подсчет количества оценок меньше 9

 count := 0;

 for i := 1 to 12 do begin

   if grades[i] < 9 then begin

     count := count + 1;

   end;

 end;

 writeln('Количество оценок меньше 9: ', count);

 readln;

end.

В данном примере мы создаем массив grades для хранения оценок, заполняем его с помощью цикла for, а затем считаем среднюю оценку и количество оценок меньше 9 с помощью других циклов for. Результаты выводятся на экран с помощью процедуры writeln.