tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Заполнить линейный массив
Заполнить линейный массив из 10 элементов случайными числами. вычислить среднее арифметическое всех его элементов.pascal abc
Aisezim2002
2 26.09.2019 21:40
2
Ответы
nadezdaakopan
08.10.2020 21:10
Var
a: array [1..10] of integer;
i, k: byte;
sum: real;
begin
randomize;
sum := 0;
k := 0;
writeln(' *** Исходный массив ***');
for i := 1 to 10 do
begin
a[i] := random(50);
sum := sum + a[i];
k := k + 1;
write(a[i], ' ');
end;
writeln(#13+'Среднее арифметическое = ', (sum/k):0:2);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
макс17281
15.09.2019 08:40
Продукцией городского молочного завода являются молоко, кефир и сметана. на производства 1 т молока, кефира и сметаны требуется соответственно 1010, 1020 и 9450 кг молока. прибыль...
АнастасияКот26
15.09.2019 08:40
Решить вопрос по программированию pascal вывести на экран сумму первых 20 чисел введенных с клавиатуры...
СРОЧНО3333
15.09.2019 08:40
Свопросом по языку программирования pascal вводится произвольная последовательность целых чисел . найти количество элементов меньших наперед заданного числа а....
AshesSpy
15.09.2019 08:40
Возведите в степень 2 число 16777216 2 в степени...
Ученик22811111111
15.09.2019 08:40
Решить вопрос по языку программирования pascal проверить тождество : 1+2+3+…+n=n*(n+1)/2....
дима2901
15.09.2019 08:40
Напишите программу вычисления суммы натуральных чисел: s=1+2+3++n...
sofom132
15.09.2019 08:40
Найти и вывести на экран все элементы массива целых чисел b(n),удовлетворяющих условию: остаток от деления на 5 равен 3....
anzhelabrosg
13.06.2019 14:40
Сообщение о том что ваш друг живет на 5 этаже несет 3 бита информации сколько этажей в доме?...
asiadancer
06.12.2021 10:45
1. Выберите правильный вариант для продолжения фразы «Программа Macrom амма для создания и редактирования текстовых документов;ма для создания и обработки фото- и видеоизображений;ма...
TimaWarface
06.12.2021 10:47
Информатики ! Урфин Джюс обрабатывает грядки волшебными растениями. Каждое утро Урфин Джюс просыпается и, если видит хотя бы одну необработанную грядку, обрабатывает ровно одну грядку...
Популярные вопросы
Возведение комплексного числа в степень и записать число в тригонометрической форме...
2
В алюмінієвій каструлі масою 800 г нагрівається 5 л води від 10ºС до кипіння. Яка...
2
Здоровый образ жизни Представь, что тебе предстоит создать устный текст-рассуждение....
3
+++ 4. Составь предложёния. Согласёвывая прилагательные с существительными, составь...
2
Кто такие мая инки ацтеки???...
3
Знайдіть f(2), якщо пожайлуста решить!И з рисунком....
3
1 решите квадратное уравнение :...
3
Главным родом войск была конница . На какие виды делилась конница...
3
Отгадайте загадки 1. Подходила - грохотала, Стрелы на поле метала.Нам казалось,...
1
1 very / giri/a/ prettyA very pretty girl.2 intelligent / really / woman/a3 really...
1
a: array [1..10] of integer;
i, k: byte;
sum: real;
begin
randomize;
sum := 0;
k := 0;
writeln(' *** Исходный массив ***');
for i := 1 to 10 do
begin
a[i] := random(50);
sum := sum + a[i];
k := k + 1;
write(a[i], ' ');
end;
writeln(#13+'Среднее арифметическое = ', (sum/k):0:2);
end.