83

Составить программу которая запрашивает n целых чисел и вычисляет их…

21 февраля 2023

Составить программу которая запрашивает n целых чисел и вычисляет их среднееарифметическое

категория: информатика



58

var n, sum, i, j: integer; begin sum: =0; write ('Enter N: '); readln (n); writeln ('Enter N numbers: '); for i: =1 to n do begin read (j); sum: =sum+j; end; writeln ('Average is ', sum/n) end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...