Посчитать сумму и среднее арифметическое десяти чисел полученное датчиком случайных чисел...

Question

Посчитать сумму и среднее арифметическое десяти чисел полученное датчиком случайных чисел от 0 до 100

Answer 1

//PascalABC.Net 3.2
begin
var a:=arrrandom (10, 0, 100);
println ('Случайные числа:', a);
print ('Сумма:', a.sum, ', Ср. арифм:', a.sum/length(a));
end.

Comments

А через массив можете решить?

---

Хех, а чем вам a - не массив?!

---

arrRANDOM = ARRay+RANDOM (случайный массив)

---

//Старые Pаscal`и
const n = 10;
var
a: array[1..10] of byte;
i: byte;
sum: integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(101);
write (a[i], '; ');
sum:=sum+a[i];
end;
writeln ();
write ('sum=', sum, ', C.а.=', sum/n)
end.

---

Видимо, Вы хотели увидеть это))

---

Спасибо, запомнил!