Напишите программку, которая наполняет массив из 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
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов