Напишите программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 20, выводит...

Question

Напишите программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 20, выводит эти числа на экран и вычисляет их среднее арифметическое. (КуМир)

Answer 1

Program ez;var i,d:integer;s:real;a:array[1..10] of integer;begind:=0;for i:=1 to 10 do A[i]:=random(20)+1;write('Сгенерированный массив= ');for i:=1 to 10 do write(A[i]:3);writeln;for i:=1 to 10 do d:=d+A[i];s:=d/10;writeln('Среднее арифметическое= ',s);end.

Comments

Спасибо конечно, но программное обеспечение КуМир, а не Паскаль.

---

извини, что не заметил