Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A , B ] и определяет среднее арифметическое элементов этого массива.
Входные данные
Входная строка содержит три числа: границы диапазона случайных чисел A и B , а также размер массива N . Все числа разделены пробелами. Гарантируется, что 0 < N ≤ 10000 .
Выходные данные
В первой строке программа должна вывести N элементов построенного массива, разделив их пробелами, а во второй строке – среднее арифметическое элементов этого массива, сохранив три знака в дробной части.
Ответы
Ответ дал:
0
var
c:array[1..100] of integer;
i, n, k, S, a, b: integer; q: real;
begin
read(n); read(a); read(b); k:=0; S:=S;
for i:=1 to n do begin
a[i]:=random(a,b);
k:=k+1; S:=S+a[i]; write(a[i], ' '); end;
q:=S/k;
writeln(q:17:3);
end.
c:array[1..100] of integer;
i, n, k, S, a, b: integer; q: real;
begin
read(n); read(a); read(b); k:=0; S:=S;
for i:=1 to n do begin
a[i]:=random(a,b);
k:=k+1; S:=S+a[i]; write(a[i], ' '); end;
q:=S/k;
writeln(q:17:3);
end.
Ответ дал:
0
a[i]:=random(a,b); в этой строке выдает ошибку:нет индексного свойства по умолчанию типа integer
Ответ дал:
0
оу, тогда даже не знаю.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад