tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Нужна , . в масиве с k чисел
Нужна , . в масиве с k чисел найти количестве елементов, велечина которых больше 10.5, минимальный элемент. язык c++
АлинаБречко
2 04.06.2019 13:50
0
Ответы
Дженнa
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
настя7500
26.01.2022 18:54
Обговоріть, у якому режимі легше створити об єкт?(у Скретч) Доведіть....
eeee0rock
19.05.2019 17:20
Напишите на pascalabc дано n целых чисел. требуется выбрать из них два таких числа, произведение которых максимально. вводится сначала число n - количество чисел в последовательности...
rita145roden
12.05.2021 18:20
Составьте по условию задачи А) математическую модель, Б) алгоритм В) запишите программу я на языке Python Г) составьте 3 теста для проверки Дано количество книг – N (N ≤ 20), а...
rrr46
12.05.2021 18:22
Вам дан код программы на языке Python А) Проверьте код программы Б) Составьте 3 теста для проверки В) определите условие задачи Г Составьте алгоритм решения...
Sofia1863
12.05.2021 18:24
Как сделать айпад? чтобы тянул кс...
moskalenkovlad1
24.07.2019 13:40
Расстояние между двумя пунктами на местности-195км.а на карте-6,5см.найти маштаб карты....
dilmurod9292
24.07.2019 13:40
Можно ли разрезать магнит так, чтобы один конец имел только северный полюс а другой только южный ?...
matter2
24.07.2019 13:40
Определить молекулярную массу предельного углеводорода, в молекуле которого содержится: а) 12 атомов углерода; б) 30 атомов водорода...
nicishcina
24.07.2019 13:40
Напишите , 5 примеров форических отношений по экологии. надо...
linovanex
24.07.2019 13:40
Как записать уравнение 50 умножить на икс равно 5000...
Популярные вопросы
Функция задана формулой y = 0,3x - 2Найдите значение функции, если значение...
1
7 Какое из слов не является синонимом к слову равнодушие?А) безразличие В) безучастие...
1
ответьте на вопросы!По литературе. ...
2
В отделе конструкторских разработок предприятия «Энергопром» работали в основном...
3
Дано А(-5,1,-2),В(4,6,1),С(7,-2,0) Знайти сторони та кути трикутника ABC...
2
Заполнить таблицу по произведению Бежин луг про мальчиков. столбики:1 Имя2 Возраст3...
3
Какой гражданский чин был у Акакия Акакиевича? А) титулярный советник; Б) статский...
1
Кто лучше правил владимир или ярослави почему...
1
написать конспект на тему Каракалпакский язык мой родной язык. Заранее...
1
1).Коляску массой 2598г толкают с силой 5Н. Определите ускорение тележки. 2).При...
3
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.