Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
BrainS711
26.01.2023 11:19 •
Информатика
1. в одномерном массиве а(10) вычислить среднее арифметическое квадратов положительных элементов.
Показать ответ
Ответ:
darya942
08.10.2020 08:00
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-50,50); a.Println;
a.Where(x->x>0).Select(x->x*x).Average.Println
end.
Пример
29 45 -32 -44 -48 25 8 -4 -25 -22
888.75
0,0
(0 оценок)
Ответ:
M4xL1ght
08.10.2020 08:00
Pascal ABC.
var
a: array [1..10] of integer; i,sum,k:integer;
begin
for i:= 1 to 10 do begin
a[i]:=random(100)-50;
if a[i]>0 then begin sum:=sum+sqr(a[i]); inc(k); end;
write(a[i], ' ');
end;
writeln;
writeln(sum/k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Crazyyouandme
14.01.2020 03:17
Статья, набрання на компьютере, содержит 16 стр, на каждой стр. 35 строк, в каждой строке 64 символа. опред. инф. объем статьи в кодировке windows-1251, в которой каждый символ...
dany20skribka
08.01.2021 23:41
Какие типы алгоритмов не существует ? линеный, с ответвлениями, с повторениями, с ветвлениями,прямые...
Светасветасветасвета
10.05.2020 12:55
Дополнить столбцы «Новая цена в $» и «10$» зная, что: «Новая цена в $» – это Старая цена уменьшенная на 10% от Старой. «Новая цена в рублях» - это Старая цена уменьшенная на 10%...
marinovamari1
02.01.2020 02:48
Софи прислушалась. Ни звука. Мёртвая тишина. Ей так хотелось подлезть под шторы, чтобы посмотреть, как выглядит мир, когда в нём хозяйничают тёмные силы. Желание выглянуть в окно...
elcapone777
26.11.2021 08:47
Сочинение на тему описание зимнего дерева...
maksisenko6451
26.11.2021 08:47
Интересные факты о тютчеве. только не тепичные родился вырос и т.д реально интересные факты....
deniskin278
26.11.2021 08:47
Синонимы к словам свет- не худо- чудо-...
ЛалKа228
26.11.2021 08:47
Найти жесткость пружины,которая под действием силы 10н удлинилась на 2см...
zhjdjq2005
26.11.2021 08:47
Как называется собрание однородных предметов...
Maks2222222222
26.11.2021 08:47
Мог ли герасим уйти от своей хозяйки ,был ли у него другой выход?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-50,50); a.Println;
a.Where(x->x>0).Select(x->x*x).Average.Println
end.
Пример
29 45 -32 -44 -48 25 8 -4 -25 -22
888.75
var
a: array [1..10] of integer; i,sum,k:integer;
begin
for i:= 1 to 10 do begin
a[i]:=random(100)-50;
if a[i]>0 then begin sum:=sum+sqr(a[i]); inc(k); end;
write(a[i], ' ');
end;
writeln;
writeln(sum/k);
end.