Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
suvaeva884p019j5
28.03.2023 21:06 •
Информатика
Вмассике 50 элементов , числа от -50 до 50 , вычислить среднее арифметическое отрицательных чисел
Показать ответ
Ответ:
adam80
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 оценок)
Популярные вопросы: Информатика
KaterinYu31
19.12.2020 10:34
Было проведено 9 запусков программы: var s, k: integer; begin readln(s); readln(k); if (s = 3) and (k 10) then writeln( ДА ) else writeln( НЕТ ) end. при которых в качестве...
87713404829
24.10.2020 18:04
Решить на паскале: вычислите сумму данных 100 натуральных чисел. вводятся 100 чисел, сумму которых необходимо посчитать....
ЗНАНИЯ88
29.04.2020 12:08
Здравствуйте! На компьютере появилось такое окно ( фото экрана прикрепила ) что делать, подскажите...
яяя611
20.07.2021 09:39
Public class Lab1{ public static void main(String[] args) { /* создайте в этом методе объект класса Pen и вызовите его методы таким образом, чтобы вывод в консоль соответствовал...
Nactyxa2003
27.03.2021 09:19
Укажите предложение, в котором есть обстоятельство. я сбил те сосульки. она гладила себе платье. Здесь тепло и уютно. я много работал.НУЖНО ВЫБРАТЬ ТОЛЬКО 1...
Алёнка12082004
23.12.2020 14:16
3. Объясните, по какому принципу образован ряд и какую роль сыграли указанные личности в исторический период создания Киргизской (Казахской) Автономной Советской Республики:...
НелиЗильбирштейн
12.06.2022 19:16
Шарик массой m, закрепленный на конце нити, движется по окру欬ности на гладкой поверхности стола. Другой конец нити пропущен сквозь отверстие в столе. Первоначально шарик...
0THEbigBOOM0
20.11.2020 05:23
Попугай раздал мартышке ,Слонёнку и удаву 24 кокоса.Когда мартышка отдала 4 кокоса Слонёнку ,а слонёнок отдал 3 кокоса удаву кокосов у них стало поровну .Сколько кокосов раздал...
san4ez77
06.06.2020 10:27
Заполните двумерный числовой массив С(7,7) случайными целыми числами в интервале [-8; 8]. Выведите значения элементов массива в виде матрицы. ответ каждой задачи следует выводить...
ustishca
06.06.2020 10:27
Скласти паспорт балади Тополя...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.