Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
altunbaevmax
19.12.2020 15:13 •
Информатика
Вданном массиве чисел найдите среднее арифметическое положительных элементов массива. составить программу для pascal abc
Показать ответ
Ответ:
asdghkbf
08.10.2020 06:42
var
arr : array[1..99] of integer;
N, s, k : integer;
begin
read(N);
for var i := 1 to N do begin
arr[i] := random(-10, 10);
writeln(arr[i]);
if arr[i] > 0 then begin
s += arr[i];
k += 1;
end
end;
writeln(s/k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Mara6458
24.05.2022 23:59
Для передачи помехоустойчивых сообщений в алфавите, который содержит 16 различных символов, используется равномерный двоичный код. этот код удовлетворяет следующему свойству:...
sherilblo
09.06.2021 22:52
1) Укажите все общие понятия: Змей Горыныч Самое глубокое озеро Учебник Число Столица России 2) Мысленное установление сходства или различия объектов по существенным...
samira124
10.01.2021 01:55
Укажите расширение файла БД..odb.docx.pdf...
Sofi12122006
29.10.2020 20:03
Дано натуральное число N. Определить максимальную цифру, используемую в записи числа и подсчитать, сколько раз она использована в записи числа N. Формат входных данных...
Abdulmansur
22.06.2020 02:18
Описати синтаксис функцій и или...
DemEntrA132
09.10.2022 14:56
Найди значение выражения.(18) & (17) для числа х =4...
elizawetailjin
16.05.2023 08:52
Решите тест по информатике, 1.База данных – этоА.таблица, сохраненная во внешней памятиБ.список в текстовом документе, сохраненном во внешней памятиВ.web-страницаГ.книга...
veronikageletii
18.09.2020 22:20
В программе КуМир на тему Циклы пока решить 3 задание...
lislibert
12.05.2023 04:59
Решить ,каждый слон весит столько же,сколько в носорогов.а каждый носорог весит столько же,сколько д обезьян. сколько обезьян уравновесят одного слона?...
alinka660066
12.05.2023 04:59
Какая орфаграмма слово. росии.глубине.красоте.силы.сравнить.видиться....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
arr : array[1..99] of integer;
N, s, k : integer;
begin
read(N);
for var i := 1 to N do begin
arr[i] := random(-10, 10);
writeln(arr[i]);
if arr[i] > 0 then begin
s += arr[i];
k += 1;
end
end;
writeln(s/k);
end.