Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
MrGromFull
31.07.2022 21:20 •
Информатика
Вмассике 50 элементов , числа от -50 до 50 , вычислить среднее арифметическое отрицательных чисел
Показать ответ
Ответ:
luda12291
02.10.2020 10:02
Const
n=50;
Var
a:array[1..n]of integer;
k,i,s:integer;
begin
for i:=1 to n do
begin
a[i]:=random(101)-50;
write(a[i]:4);
if a[i]<0 then
begin
s:=s+a[i];
k:=k+1;
end;
end;
writeln;
if k<>0 then
writeln(s/k)
else
writeln('Нет отриц')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dimannn8980
17.11.2022 21:29
Даны два действительных числа a и b. получить их сумму, разность и произведение. решит на с#...
Odessey20011
17.11.2022 21:29
Желательно с решением №1 мощность алфавита равна 8 символов. в сообщении 20 символов. какой его информационный объем? №2 информационный объем сообщения 4096 бит содержит...
alyagipsy
10.11.2020 01:22
Как это сделать? 1. настройте стиль «обычный»: шрифт times new roman, 14, без дополнительных опций; выравнивание – по ширине, межстрочный интервал – одинарный, отступы...
liza20038333
21.05.2021 02:54
Чем отличается производная информация от первичной...
didocfofiffi
05.01.2023 15:21
Назовите элементы однородной заливки в corel draw...
yuliko13
10.02.2021 22:32
Со.с.! объясните значения терминов «», «процесс», «поток выполнения»? как они между собой соотносятся?...
нарешатор
10.02.2021 22:32
Что получится в результате действий исполнителя чертёжник по следующему алгоритму: переведи в точку (1,4) , опусти перо, повтори 5 раз, сдвинь на вектор(2,0), сдвинь...
upvchasro
31.03.2023 15:52
Что значит слова с безударной гласной преведите примеры и объясните...
mutagan25Mark
31.03.2023 15:52
Разобрать морфологический разбор слова необычных ( памятников ) к примеру необычных -прил ( ? ) и...
diana125sirena62rus
31.03.2023 15:52
Напишите сочинение рассуждение с аргументами за 9 класс 15.3 солженицин матрёнин двор...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n=50;
Var
a:array[1..n]of integer;
k,i,s:integer;
begin
for i:=1 to n do
begin
a[i]:=random(101)-50;
write(a[i]:4);
if a[i]<0 then
begin
s:=s+a[i];
k:=k+1;
end;
end;
writeln;
if k<>0 then
writeln(s/k)
else
writeln('Нет отриц')
end.