Я не спец по паскалю но вот на с++ ,думаю всё понятно будет
#include
using namespace std;
int main() {
vector s;
int i,sred,cis,sum=0;
while(cin>>cis){
s.push_back(cis);
}
for(i=0;i sum+=s[i];
}
sred=sum/s.size();
cout<<sred<<endl;<br> return 0;
}
Что мы делаем ,сейчас скажу.Сначала мы через while добавляем элементы в массив vector , затем находим сумму элементов массива . И чтобы найти ихнее среднее арифметическую мы делим сумму на количество элементов массива.