Решить в ПаскалеЗаполнить массив 10 случайными числами (0-100)в одномерный массив, затем

Решить в Паскале
Заполнить массив 10 случайными числами (0-100)в одномерный массив, потом вычислить их среднее значение и вывести ее на экран.

Задать свой вопрос
Анжелика
вам как нужно, алгоритмом через цикл либо все одинаково как, но чтобы работало?
Никита
Методом через цикл
1 ответ

var

 a: array[0..20] of integer;

 i, n, Sum: integer;

begin

 n := 10;

 Sum := 0;

 Randomize;

 for i := 1 to n do

 begin

   a[i] := Random(101);

   Sum := Sum + a[i];

   Write(a[i], ' ');

 end;

 

 Writeln;

 Write('Average = ', Sum / n)

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт