Даны целые числа.

Найти среднее арифметическое этих чисел.

Решить через for и random

Pascal

Я не спец по паскалю но вот на с + +, думаю всё понятно будет

#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<
return 0;

}

Что мы делаем, сейчас скажу. Сначала мы через while добавляем элементы в массив vector, затем находим сумму элементов массива. И чтобы найти ихнее среднее арифметическую мы делим сумму на количество элементов массива.