Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
тучя
15.07.2020 16:41 •
Информатика
Дан массив вещественных чисел. найти среднее арифметическое неотрицательных элементов массива.
Показать ответ
Ответ:
dashasuslova007
05.10.2020 21:19
Program n1;
const n=10;
var a: array[1..n] of real;
sum,k: real;
i: integer;
begin
sum:=0;
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]>0 then begin
k:=k+1;
sum:=sum+a[i];
end;
end;
write(sum/k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
KlarissaStet
01.02.2020 07:05
Установите соответствие между понятиями и их описаниями. пиксель основное устройство вывода видеоинформации простран- колличество пикселей из которых складывается изображение...
leralera799
02.04.2021 05:24
При использовании точки доступа с телефона, скорость интернета идёт на половину, то есть на телефоне показывает 1мб/с а комп получает только 500кб/с, как это исправить?...
pwgamerproyt
25.10.2021 01:54
Всем привет с задачей, условие ниже (язык Python):Мы пишем приложение для удобного прослушивания музыки. У Вани есть список из девяти песен группы Depeche Mode. Каждая...
dilnoza2006
11.05.2021 09:56
Робот минатазалаушылар деген калай...
lloginova58
28.05.2021 09:52
Что такое шлгайская земля...
SAVFOREVER
21.06.2020 12:20
решить 7.20 и 7.22. Если не трудно, можно с объяснениями?...
Temir338
02.10.2022 02:59
А) Дәптерге координаттық бұрыш шығатындай сәулелер сыз Сәулелердің бойынан бірлік кесінділерді анықта. Кесте бойыншажәне берілген жылдамдық бойынша қозғалыс графигін құрt...
mssvetochkaki
31.01.2022 07:13
Напишите доклад на тему: «Вопрос о деепричастиях и причастиях в современной лингвистике...
msganny
31.01.2022 07:13
Как пользовались ассирийским тараном...
Shavelko
19.03.2021 11:39
Практическая работа Тема: Европейские революции. Английская революция XVII века. Французская революция XVIII века. Задание Охарактеризуйте революционные события в Англии...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n=10;
var a: array[1..n] of real;
sum,k: real;
i: integer;
begin
sum:=0;
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]>0 then begin
k:=k+1;
sum:=sum+a[i];
end;
end;
write(sum/k);
end.