Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
aigul841107gMailcom
25.05.2023 19:41 •
Информатика
Вводится последовательность из n произвольных чисел найти среднее значение положительных элементов последовательности. массив паскаль
Показать ответ
Ответ:
Даниил20061605
08.10.2020 19:05
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqReal('=>',ReadInteger('n=')).Where(t->t>0).Average.Println
end.
Пример
n= 8
=> 3.16 0 -12.7 6 -19 0.082 7 -3
4.0605
0,0
(0 оценок)
Популярные вопросы: Информатика
Sinderella2006
07.04.2021 15:29
1 Компьютерный алфавит при использовании системы кодировки ASCII имеет мощность 256 символов. Определите информационный вес компьютерного символа в кодировке ASCII....
milena162
22.08.2020 02:57
Как называется основная программа?...
Oxicko
29.12.2020 04:13
каких из этих устройств обрабатывает информацию а)клавиатура в)процессор с)долговременная память...
dddashaaa1
13.06.2020 15:13
Вопросы к словам графика, растр, сканер, формат, пиксель, вектор...
ІнкСанс
08.06.2021 16:28
іть в пайтоні ів Задання 1. Створіть програму на вході маємо два списки і ціле число, якщо введене число менше 0, то до першого списку додається другий, інакше до...
zu3vaelina
30.06.2022 19:03
Напишите функцию, которая возвращает количество целочисленных делителей натурального числа. Если число простое – возвращает сообщение сообщение «Вы ввели простое...
Артем14698752269
12.02.2023 16:47
Составьте алгоритм определения знака заданного числа в виде блок-схем. ...
55555250
20.05.2021 14:48
Нашел код на паскале но мне надо его на питоне, напишите или объясните как делать??? Var m,k:longint; Begin write( Введите M: );readln(m); While m 0 do Begin if m...
Знайка5555
30.09.2022 11:50
Які повітряні маси є панівними на території україни...
Ghhhuj
30.09.2022 11:50
rewrite the sentences in the passive.1 someone first suggested the idea of the e-bookin the 1990s.2 they deliver our newspaper to the house everymorning.3 someone...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqReal('=>',ReadInteger('n=')).Where(t->t>0).Average.Println
end.
Пример
n= 8
=> 3.16 0 -12.7 6 -19 0.082 7 -3
4.0605