Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ruzmat84ot4xqh
10.07.2022 03:58 •
Информатика
Pascal! найти среднее арифметическое отрицательных элементов массива. заменить на него минимальный элемент.
Показать ответ
Ответ:
bogdannazarenkomen
17.09.2020 20:56
Var a: array[1..10] of integer;
var i, col, ans:integer;
begin
ans:=0;
col:=0;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i] < 0 then
begin
col:=col+1;
ans:=ans+a[i];
end;
end;
writeln(ans/col);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ekaterinakozlik
22.05.2022 12:25
Информатика. Дано выражение: 2^320+2^205+4^28−6. Найди его значение, если его записали в двоичной системе счисления. Сколько единиц в записи этого числа?...
1048298
20.07.2021 22:16
. Сформировать одномерный массив. Удалить из него К элементов, начиная с заданного номера, добавить элемент с заданным значением. С++...
bar569
29.11.2022 14:49
Информатика 8 класс сделайте тест по любому предмету на 4 варианта ответа с 1и2 правильным где-то 12 вопросов...
polinapoluunaa
01.12.2022 00:36
В текстовом режиме экран монитора компьютера обычно разбивается на 25 строк по 80 символов на строке.Определить объем текстовой информации,занимающей весь экран монитора,в...
MariyamGaraeva
31.03.2022 08:06
Задумано некоторое число х (х 100). Известны числа k, т, п — остатки от деления этого числа на 3, 5, 7. Найти х. с...
petechkapeshko
26.11.2020 07:37
Создайте в текстовом документе, используя таблицу, схему классификации треугольников по равенству сторон. Ворд...
Nemiroffdenisa
19.04.2023 16:40
Напишите программу, которая вводит с клавиатуры числа до тех пор, пока не будет введено число 0. в конце работы программы на экран выводится минимальное и максимальное...
yyuyuy
17.04.2020 11:23
Часть имени файла указывающая на его тип...
Фиалка2017
17.04.2020 11:23
Перевести 8192 бита в байты, 4мбайта в биты 12582912 бита в мбайты заранее !...
mehimehi225
09.06.2022 06:57
Какие источники информации использовали следующие персонажи сказок александра сергеевича пушкина...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i, col, ans:integer;
begin
ans:=0;
col:=0;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i] < 0 then
begin
col:=col+1;
ans:=ans+a[i];
end;
end;
writeln(ans/col);
end.