Решить в Паскале

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

Question

Информатика

Затик

11 июля, 23:20

Решить в Паскале

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

+3

Ответы (1)

Знаете ответ на вопрос?

Аболфазл · Answer 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.

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

Решить в Паскале

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