tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вмассиве в (15) записано
Вмассиве в (15) записано рост детей. найти средний рост группы детей. с турбо паскаль)
annelya009
2 29.08.2019 08:40
0
Ответы
a1b2c5612z
06.10.2020 02:30
Uses Crt;
Const
N = 15;
Var
B:array[1..N] of integer;
i:integer;
S:real;
Begin
ClrScr;
Randomize;
S:=0;
Write('B(',N,'):');
For i:= 1 to N do
Begin
B[i]:=random(71)+130;
Write(' ',B[i]);
S:=S+B[i]
End;
WriteLn;
WriteLn('Sr = ',S/N:0:2);
ReadLn
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
SergeyValitov228
11.06.2019 15:52
Хотя бы ,но если кто может то и функции. заранее ! )...
kudar2
11.06.2019 15:47
Вэлектронную таблицу занесли данные о результатах егэ. a b c d e 1 номер участника язык информатика 2 участник 1 79 81 44 85 3 участник 2 98 23 82 89 4 участник 3 48...
Sveta0202
11.06.2019 15:40
Найти значение функции y = 4·(x–3)6 – 7·(x–3)3 + 2 приданном значении x. java...
Aleksey20052801
11.06.2019 15:36
Производилась четырёхканальная (квадро) звукозапись с частотой дискретизации 32 кгц и 24-битным разрешением. в результате был получен файл размером 20 мбайт, сжатие данных...
Aнoним01
11.06.2019 16:50
100111 в двоичной системе переведите в восьмеричную систему. 10011в двоичной системе переведите в восьмеричную и шестнадцатьричную систему...
sevtour
11.06.2019 15:29
На аллее перед зданием министерства обороны в ряд высажены n дубов. в связи с грядущим приездом главнокомандующего, было принято решение срубить несколько деревьев для...
Semen200000000
19.07.2019 21:20
Влототроне лежат несколько шаров. при розыгрыше приза выпал один из шаров. в сообщении о том, что выпал шар с номером 7 содержится 4 бита информации. сколько шаров в...
Kirilloo673
24.09.2019 21:24
в одном известном ресторане работают n работников. каждый из них работает без перерыванекоторый отрезок времени каждый день. нужно найти человека, который работает больше...
potracheno666
24.09.2019 21:22
Составьте алгоритм,определяющий гипотезу (с) и периметр (p) прямоугольного треугольника,если известны его катеты a и b...
Qwerrgggggg
24.09.2019 21:20
Есть числовой ряд: 100101102…998999, в котором подряд выписаны все трехзначные числа. определить трехзначное число из этого ряда, образованное тройкой цифр, в которую...
Популярные вопросы
Скласти речення про лисицю та зайця...
2
Adverdials of frequency \ word order . put the words in the right...
2
Найдите соответствие: 1 столбик примексикаеская низменность мексиканское...
1
Первоначальное впечатление о ташкент город хлебный !...
2
Почему именно в лесостепной зоне преобладает овражный рельеф...
3
25 1.)представьте в виде дроби a.) 6 b.) 6b - 2y - 2b y 3-b...
3
1)не стыдно знать,стыдно не учиться. 2)грамота-не болезнь,годы не...
3
Знахари готовили из частей его тело лекарство от слабости и трусости...
2
Чему равна степень окисления и координационное число комплексообразователя...
2
Машина едет 75м/мин. какое расстояния проедет машина за 4часа...
3
Const
N = 15;
Var
B:array[1..N] of integer;
i:integer;
S:real;
Begin
ClrScr;
Randomize;
S:=0;
Write('B(',N,'):');
For i:= 1 to N do
Begin
B[i]:=random(71)+130;
Write(' ',B[i]);
S:=S+B[i]
End;
WriteLn;
WriteLn('Sr = ',S/N:0:2);
ReadLn
End.