Only Pascal. Задание: Мне нужно написать прог-у для вычисления средней оценки исходя из существующих. Есть ТРИ основных действия для вычисления этого: 1) Посчитать кол-во оценок(Пример: 2,3,4 ,т.е кол-во оценок 3) 2) Вычислить их сумму(Исходя из того же примера, т.е 2+3+4 = 9 - это сумма) 3) И наконец сама формула: СУММУ ДЕЛИМ на КОЛ-ВО (т.е 9/3=3) Оставьте два числа после запятой Конкретные примеры: Искусство:4,5,4 -считается сумма чисел =13 -считается кол-во чисел=3 -Рез-ат: 13/3 = 4.33
program AverageGradeCalculator; var num, sum, count, i: integer; grade: real; begin sum := 0; count := 0; writeln('Введите количество оценок:'); readln(num); for i := 1 to num do begin writeln('Введите оценку ', i, ':'); readln(grade); sum := sum + grade; count := count + 1; end; writeln('Сумма оценок: ', sum:0:2); writeln('Количество оценок: ', count); writeln('Средняя оценка: ', sum / count:0:2); end.
Пример использования:
Введите количество оценок: 3 Введите оценку 1: 4 Введите оценку 2: 5 Введите оценку 3: 4 Сумма оценок: 13.00 Количество оценок: 3 Средняя оценка: 4.33
Этот код запрашивает у пользователя количество оценок, затем запрашивает каждую оценку по отдельности, считает их сумму, количество и вычисляет среднее значение.
Пример кода на Pascal:
program AverageGradeCalculator;var
num, sum, count, i: integer;
grade: real;
begin
sum := 0;
count := 0;
writeln('Введите количество оценок:');
readln(num);
for i := 1 to num do
begin
writeln('Введите оценку ', i, ':');
readln(grade);
sum := sum + grade;
count := count + 1;
end;
writeln('Сумма оценок: ', sum:0:2);
writeln('Количество оценок: ', count);
writeln('Средняя оценка: ', sum / count:0:2);
end.
Пример использования:
Введите количество оценок:3
Введите оценку 1:
4
Введите оценку 2:
5
Введите оценку 3:
4
Сумма оценок: 13.00
Количество оценок: 3
Средняя оценка: 4.33
Этот код запрашивает у пользователя количество оценок, затем запрашивает каждую оценку по отдельности, считает их сумму, количество и вычисляет среднее значение.