Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
aika113
26.05.2022 10:58 •
Информатика
Нужна , . в масиве с k чисел найти количестве елементов, велечина которых больше 10.5, минимальный элемент. язык c++
Ответ:
sumanrahmatova
05.07.2020 13:46
Const
auto = false;
var
a: array[1..5000]of integer;
n, i, k, min: integer;
begin
if auto then begin
n := random(100);
for i := 1 to n do
a[i] := random(200);
end
else begin
readln(n);
for i := 1 to n do
read(a[i]);
end;
min := a[1];
for i := 1 to n do
begin
if min > a[i] then min := a[i];
if a[i] > 10.5 then k := k + 1;
end;
writeln(min, ' ', k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
manshev2018
08.08.2020 06:52
Информационное сообщение объёмом 250 бит состоит из 50 символов. Какова максимально возможная мощность алфавита, с которого записано это сообщение?...
Samatova03
19.02.2022 19:55
Есть функция f, которая определена следующим образом: def f(n): return n * 10 + 5 введите её в интерпретаторе и посчитайте, чему равно значение следующего выражения: f(f(f(...
очочов
19.07.2021 04:22
Консерваторы, словянофилы, западники, русский социализм...
konfetabox
19.07.2021 04:22
В каких музыкальных жанрах работал В каких музыкальных жанрах работал– В. А. Моцарт? ...
Didei
11.04.2021 02:12
не магу сделать уже 4 час сижу не магу зделать...
Mikhail55Rus
11.04.2021 02:12
Текст на англиском с and , but , so , because...
AlinaSh25
11.04.2021 02:12
1/6 суток = ... часов 1/4 века = ... лет 2/7 недели = ... дней 2/3 минуты = ... секунды 2/5 часа = ... минуты3/4 суток = ... часов 3/5 века = ... лет...
КатяСимагина1
11.04.2021 02:12
Латвийской национальной библиотеке требовалось переплести большое количество книг. Одна мастерская вызвалась выполнять заказ за 20 дней, вторая- за 30 дней, а третья- за...
arsenijakula
24.11.2020 05:52
Почему Германия и Италия не объединили свои земли?...
Sauleorazbaeva1
19.07.2022 06:31
Write the following addresses in block style. Расставьте части письма в нужном порядке. Не забудьте поставить подпись. 1 You: Helen Dullwit, Travel agent Your address:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
auto = false;
var
a: array[1..5000]of integer;
n, i, k, min: integer;
begin
if auto then begin
n := random(100);
for i := 1 to n do
a[i] := random(200);
end
else begin
readln(n);
for i := 1 to n do
read(a[i]);
end;
min := a[1];
for i := 1 to n do
begin
if min > a[i] then min := a[i];
if a[i] > 10.5 then k := k + 1;
end;
writeln(min, ' ', k);
end.