Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
Vladnel26
0 / 0 / 0
Регистрация: 20.11.2017
Сообщений: 18
#1

В массиве содержащем не более 15 чисел, элементы, не принадлежащие заданному интервалу, заменить нулями, остальные возве - PascalABC.NET

20.11.2017, 22:24. Просмотров 101. Ответов 1
Метки нет (Все метки)

В массиве содержащем не более 15 чисел, элементы, не принадлежащие заданному интервалу, заменить нулями, остальные возвести в куб. Найти количество нулей и максимальный элемент в полученном массиве.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2017, 22:24
Здравствуйте! Я подобрал для вас темы с ответами на вопрос В массиве содержащем не более 15 чисел, элементы, не принадлежащие заданному интервалу, заменить нулями, остальные возве (PascalABC.NET):

Заменить нулями элементы матрицы по заданному условию - Pascal
Помогите пожалуйста решить. Даны целые числа a1,...,a10, целочисленная квадратная матрица порядка n. Заменить нулями в матрице те...

Дан массив из n целых чисел и целые числа p, q (p>q>0). В массиве заменить нулями элементы, модуль которых при деле-нии на p даёт в остатке q - PascalABC.NET
Нужно чтобы сначала выводился первый массив, потом изменённый.

В заданном массиве заменить нулями элементы, не превышающие заданное значение - Pascal
Помогите пожалуйста, не имею понятия как делать. Составить программу по заданному условию. Первая часть условия является заданием на...

В двумерном массиве вычисилить количество отрицательных элементов и заменить нулями положительные элементы - Pascal
Дана целочисленная матрица порядка n*m. Вычисилить: количество отрицательных элементов и на место положительных элементов записать ноль.

В двумерном массиве заменить нулями те элементы, которые имеют нечётную сумму индексов - PascalABC.NET
При помощи случайных чисел ввести одномерный массив размерностью 10 матрицу размером 5х6. В двумерном массиве заменить нулями те...

В последовательности все числа меньшие двух заменить нулями и получить сумму членов, принадлежащих интервалу - Pascal
Даны натуральное число n, действительные числа a1,a2,a3,..., an. В этой последовательности все члены, меньшие двух, заменить нулями. Кроме...

1
JuriiMW
Эксперт Pascal/Delphi
1615 / 896 / 726
Регистрация: 10.12.2014
Сообщений: 3,174
21.11.2017, 06:33 #2
Pascal
1
2
3
4
5
6
7
8
begin
  var a := ArrRandomInteger(ReadInteger('Количество элементов в массиве ='),-10,+10);
  Write('старый a : '); a.Println;
  var(L,R):=ReadInteger2('Через пробел значения интервала:');if L>R then Swap(L,R);
  a := a.Select(n->(n<L)or(n>R)?0:n*n*n).toArray;
  Write(' новый a : '); a.Println;
  WriteLn('Количество нулей = ', a.Count(n->n=0), NewLine, 'Максимальный элемент = ', a.Max);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2017, 06:33
Привет! Вот еще темы с ответами:

В массиве найти сумму элементов, не принадлежащих заданному интервалу - Pascal
Условие: В массиве чисел с1,с2..с40 найти сумму чисел, не попавших в интервал . Не совсем понимаю, что от меня требуется. Буду благодарна,...

Оставить в числе только первую цифру, а остальные заменить нулями - Pascal
Дано натуральное n-значное число. Оставить в этом числе только первую цифру, а остальные заменить нулями.

Разработать модуль позволяющий определить: есть ли в массиве элементы принадлежащие заданному интервалу - Turbo Pascal
Разработать модуль позволяющий определить: есть ли в массиве элементы принадлежащие заданному интервалу, а так же программу, подключающую...

В одномерном числовом массиве D все четные элементы заменить нулями, остальные - максимальным элементом - Delphi
В одномерном числовом массиве D все четные элементы заменить нулями, остальные - максимальным элементом. Народ, просто код подскажите...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru