Составить программку, которая сформировывает массив из 11 случайных целых интервала [0,15]

Составить программку, которая сформировывает массив из 11 случайных целых промежутка [0,15] и выводит на экран сумму и среднее арифметическое частей массива

Задать свой вопрос
1 ответ
Const n=11;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(16);
 write(a[i],' ');
 end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln('s=',s,'  sr=',s/n:5:2);
end.

Пример работы:
6 12 7 9 3 15 10 10 6 2 8 
s=88  sr= 8.00
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт