В ряду находятся 12 оценок Василия, нужно найти среднюю оценку Василия. Так же, необходимо найти сколько оценок Василя меньше за 9.
Решение с помощью одномерных массивов, на языке программирования Паскаль.
Заранее Благодарю.
Ответы
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.