Задание:
Составьте программу вычисления среднего арифметического целых чисел из отрезка [-6; 33]Срочно нужно
Решение:
Uses crt; var i: shortint; sr: real; beginclrscr; for i: =-6 to 33 dosr: =sr+i; sr: =sr/40; writeln ('среднее арифметическое=',sr: 4:1); end.
Знаете другой ответ?