Question

Дан список из 10 случайных элементов со значениями от 5 до 10. Найдите среднее арифметическое этого списка

Answer 1

Ответ:

На Паскале через массив.

var sr, sum:real;

i:integer;

a:array [1..10] of real;

begin

 randomize;

 for i:=1 to 10 do a[i]:=random(5,10);

 for i:=1 to 10 do write (a[i], '; ');

 sum:=0;

 for i:=1 to 10 do sum:=sum+a[i];

 sr:=sum/10;

 writeln (' Cумма равна  ', sum);

 writeln (' Cреднее арифметическое равно  ', sr);

end.