Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Vladnel26
0 / 0 / 0
Регистрация: 20.11.2017
Сообщений: 26
1

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

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

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

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

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

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

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

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

1
JuriiMW
2053 / 1120 / 1595
Регистрация: 10.12.2014
Сообщений: 4,271
21.11.2017, 06:33 2
Лучший ответ Сообщение было отмечено Vladnel26 как решение

Решение

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

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

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

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


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

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

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