Напишите программку, которая наполняет массив из N частей случайными целыми числами
Напишите программку, которая заполняет массив из N элементов случайными целыми числами в спектре [ A , B ] и определяет среднее арифметическое частей этого массива.
Входные данные
Входная строчка содержит три числа: границы диапазона случайных чисел A и B , а также размер массива N . Все числа разбиты пробелами. Гарантируется, что 0 lt; N 10000 .
Выходные данные
В первой строке программка обязана вывести N частей построенного массива, разделив их пробелами, а во 2-ой строке среднее арифметическое частей этого массива, сохранив три знака в дробной доли.
2 ответа
Slavjan Petrzhak
Var c:array[1..10000] of integer;
n, k, S, a, b: integer;
q: real;
begin
read(a, b, n);
k:=0; S:=S;
for var i:=1 to n do begin
c[i]:=random(a,b);
k:=k+1;
S:=S+c[i];
write(c[i], ' ');
end;
q:=S/k;
writeln(q:17:3);
end.
n, k, S, a, b: integer;
q: real;
begin
read(a, b, n);
k:=0; S:=S;
for var i:=1 to n do begin
c[i]:=random(a,b);
k:=k+1;
S:=S+c[i];
write(c[i], ' ');
end;
q:=S/k;
writeln(q:17:3);
end.
Гимбатова
Людмила
какую?
Игорь Тренков
у вас какой паскаль ?
Санек Масолбасов
abc ?
Андрей Дульнев
питон
Антонина Мустакопуло
ты не сказал какой язык программирования
Чирхова
Юлия
SyntaxError на строке 2: invalid syntax (вот что пишет)
Владик Шиц
Я на паскале решил
Колек
поправил
Маргарита
не то
Вячеслав Бержицкий
какую?
Артемий Моковецкий
у вас какой паскаль ?
Катя
abc ?
Vovan Kessel
питон
Виолетта Жаврук
ты не произнес какой язык программирования
Алла Пасмурова
SyntaxError на строке 2: invalid syntax (вот что пишет)
Ульяна
Я на паскале решил
Валерий Перский
поправил
Antonina
не то
Щепина Вероника
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программка не работает, обновите версию!
begin
var (a,b,n):=ReadInteger3;
var p:=ArrRandom(n,a,b); p.Println;
Writeln(p.Average:0:3)
end.
// Внимание! Если программка не работает, обновите версию!
begin
var (a,b,n):=ReadInteger3;
var p:=ArrRandom(n,a,b); p.Println;
Writeln(p.Average:0:3)
end.
Евгения Хрипакова
Мне нужно в питоне а не в паскале!!!
Табокова
Ульяна
Либо в Free Pascal 3.0.2!!
Артём Аношенков
точно
Илюшка Генних
Мне необходимо в питоне а не в паскале!!!
Вадик Черкашенко
Или в Free Pascal 3.0.2!!
Антонина
точно
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов