Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
SMokKK
30.04.2022 06:11 •
Информатика
Нужна , . в масиве с k чисел найти количестве елементов, велечина которых больше 10.5, минимальный элемент. язык c++
Ответ:
Everiya15
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 оценок)
Популярные вопросы: Информатика
murrrКотя
23.03.2022 01:58
Примеры слов обозначающих действия объектов...
theartik1
21.08.2020 23:51
Какие компьютерные игры полезны?...
vika12325
06.05.2020 17:14
Решить в паскале. кандидату даётся число z и его просят назвать два различных числа x и y, таких, что их сумма равна z. целое число z не превосходящее 1 по модулю....
ssqllxx
11.03.2023 22:16
Помагите ! Два одинаковых точечных заряда, модуль которых |q|= 2×10^-8 Кл, расположены в вакууме на расстоянии 3 м друг от друга. Определите модуль силы, с которой первый заряд действует...
Ulyanka2000
20.07.2020 05:47
1)Какое сходство есть в строении и жизнедеятельности цветкогого растение и водрослей? 2)Почему водросли выделели в отдельную группу? 3)Что произойдёт если все водросли исчезнут?...
играю4в4warface
30.03.2021 22:28
Инструкция: Вам предлагаются местовые задания с выбором 1. Muorne племена, населявшие Казахстан, открыли и широко использовали железо к III в. до н. э. 3) VIII в. до н. э. С)V в. до...
Elizzzavettta
09.05.2022 10:31
Диаметр малого цилиндра гидравлической машины равен 4 м а диаметр большого цилиндра1 сколько отдаст машина....
Alica56
23.05.2023 10:18
Какое(-ие) из данных утверждений верное( ые)? 1. Для привлечения внимания аудитории в предложение «... ограничьте употребление рафинированных продуктов: сахара, растительного масла,...
елена1179
03.09.2021 17:02
На что давал право золотой билет? а) получить в наследство фабрику; Б) посетить фабрику; В) бесплатно получать конфеты в любом магазине; Г) прокатиться на воздушном лифте....
ksenaf
25.06.2021 03:19
Сшили 25 курток, израсходовали по 4 м ткани на каждую куртку. Потом из такого же количества метров сшили 20 плащей. Сколько метров ткани пошло на один плащ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.