0 / 0 / 0
Регистрация: 19.12.2016
Сообщений: 18
1

Найти количество элементов массива, которые больше чем удвоенный наименьший элемент массива

15.03.2017, 22:22. Показов 1219. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Элементы массива – действительные числа в пределах от 2 до 11. Найти количество элементов массива, которые больше за удвоенный наименьший элемент массива
Спасибо!
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.03.2017, 22:22
Ответы с готовыми решениями:

Подсчитать количество и напечатать номера элементов массива, которые больше чем b, с непарными номерами
Составить программу для обработки массива из 15-ти чисел, где x=(0.01; -27.3; 0; 1.25; -371; 0.5; -0.1; 1.2; -5; -172.3; 19783; -2.7;...

Найти и вывести среднее значение среди элементов массива,которые делятся на 9 и больше,чем 3
1)Дан целочисленный массив из 20 элементов.Элементы массива могут принимать целые значения от -50 до 50.Составить программу ,позволяющую...

Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов
Задача 1. Дан целочисленный массив А(а1...аn). Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких...

2
 Аватар для Hitoku
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
15.03.2017, 23:19 2
Лучший ответ Сообщение было отмечено Julia2828 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  a: array [1..100] of real;
  i,k,n:integer;
  min:real;
begin
  randomize;
  write('N = '); readln(n);
  a[1]:=2+11*random; write(a[1]:0:0,' ');
  min:=a[1]; k:=0;
  for i:=2 to n do begin
    a[i]:=2+11*random; write(a[i]:0:0,' ');
    if a[i]<min then min:=a[i];
  end;
  writeln;
  for i:=1 to n do begin
    if a[i]>min*2 then k:=k+1;
  end;
  write(k);
end.
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7803 / 4625 / 2832
Регистрация: 22.11.2013
Сообщений: 13,141
Записей в блоге: 1
16.03.2017, 00:44 3
Hitoku,
можно чуть реорганизовать, избавившись от неловкого "приседания" перед циклом:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  a: array [1..100] of Real;
  i, k, n: Integer;
  min: Real;
begin
  Randomize;
  Write('N = '); ReadLn(n);
  for i:=1 to n do begin
    a[i]:=2+11*Random; Write(' ',a[i]:0:1);
  end; WriteLn;
  min:=a[1]; for i:=2 to n do if min>a[i] then min:=a[i];
  min:=min*2; for i:=1 to n do if min<a[i] then Inc(k);
  WriteLn(k);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
16.03.2017, 00:44
Помогаю со студенческими работами здесь

Найти номер тех элементов массива, которые больше своего правого соседа, и количество таких элементов.
Дан массив размера N. Найти номер тех элементов массива, которые больше своего правого соседа, и количество таких элементов. Найденные...

Найти наименьший элемент двухмерного массива, больше данного T
нужна помощь по написанию лабораторных работ в паскале.В программировании я не силен,а в понедельник уже экзамен,ничего не получается.вот...

Дан массив размера N. Найти номера тех элементов массива, которые больше своего левого соседа, и их количество
Дан массив размера N. Найти номера тех элементов массива, которые больше своего левого соседа, и количество таких элементов. Найденные...

Вычислить количество элементов массива, которые больше С
Задание: Вводить с клавиатуры массивы и обработывать их, пока на запрос &quot;Ви хотите продолжать работу программы дальше&quot; пользователь не...

Найти наименьший чётный элемент массива, если такого нет, то вывести первый элемент; подсчитать сумму нечётных элементов
Сделайте так что бы размер массива водился с клавиатуры Добавлено через 1 минуту Найдите наименьший четный элемент массива. Если...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

Новые блоги и статьи
Next.js для разработки React: преимущества серверного рендеринга
Reangularity 20.03.2025
Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .
JUnit или TestNG: Выбираем Java-фреймворк для тестирования
Javaican 20.03.2025
История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .
Разбиваем монолит на два микросервиса и реализуем CI/CD
ArchitectMsa 20.03.2025
Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .
Python и PDF: Создание и редактирование файлов
py-thonny 20.03.2025
Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .
Корутины в Unity и производительно­сть WaitForSeconds
GameUnited 20.03.2025
Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .
Криптография в PHP
Jason-Webb 20.03.2025
PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .
Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли
Etyuhibosecyu 20.03.2025
С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .
Реализация перечислений в Go
golander 19.03.2025
Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .
Шаблон API Gateway в микросервисной архитектуре
MatrixArchitect 19.03.2025
API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .
C++26: Что мы потеряли
bytestream 19.03.2025
С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru