Задание:
Составить программу в паскалес клавиатуы вводятся 5 чисел. После ввода каждого числа выводим среднее арифметическое введенной частиP.S. Пять чисел нужно выразить через одну переменную
Решение:
Var pr,sum,n: real; i: integer; Beginwrite ('Вводите числа: '); for i: =1 to 5 do begin readln (n); sum: =sum+n; end; pr: =sum/5; writeln ('среднее арифметическое равно: ',pr); end.
Знаете другой ответ?