Очень важно!
Умоляю помогите! Написать программу, которая находит сумму, произведение и среднее арифметическое 5 целых чисел.
Умоляю помогите! Написать программу, которая находит сумму, произведение и среднее арифметическое 5 целых чисел.
More Questions From This User See All
Answers & Comments
var
_sum, _multiplication, x, i : integer;
begin
_sum := 0;
_multiplication := 1;
writeln('Введите 5 чисел: ');
for i := 1 to 5 do
begin
readln(x);
_sum := _sum + x;
_multiplication := _multiplication * x;
end;
writeln('Сумма этих чисел:', _sum);
writeln('Произведение числе:', _multiplication);
writeln('Среднее арифметическое:', _sum/5:5:2);
end.