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

Сформировать новый массив, исключив из исходного массива данные о подарках, где меньше 10 конфет или больше 150.

24.10.2019, 07:38. Показов 898. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан массив, элементами которого являются данные о количестве конфет в новогодних подарках. Сформировать новый массив, исключив из исходного массива данные о подарках, где меньше 10 конфет или больше 150.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.10.2019, 07:38
Ответы с готовыми решениями:

Сформировать новый массив, куда попадут элементы исходного массива, по модулю больше 10
Дан массив а(10), сформировать массив в(), куда попадут элементы из массива а по модулю больше 10

Сформировать новый массив из отрицательных или из положительных чисел исходного массива
по указанию пользователя с элементов масива а(15) сформировать масив или из отрицательных или из...

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

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

2
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
24.10.2019, 12:29 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var a:array[1..100] of integer;
    n,i,k:integer;
begin
randomize;
repeat
write('Введите размер массива от 10 до 100 n= ');
readln(n);
until n in [10..100];
for i:=1 to n do
 begin
  a[i]:=1+random(200);
  write(a[i]:4);
 end;
writeln;
for i:=n downto 1 do
if not(a[i] in [10..150])then
 begin
  dec(n);
  for k:=i to n do a[k]:=a[k+1];
 end;
for i:=1 to n do
write(a[i]:4);
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7769 / 4598 / 2823
Регистрация: 22.11.2013
Сообщений: 13,077
Записей в блоге: 1
26.10.2019, 08:55 3
Или чуть экономнее:
Pascal
15
16
17
18
19
i:=n; n:=0;
for i:=1 to i do
  if a[i] in [10..150] then begin
    Inc(n); a[n]:=a[i]:
  end;
0
26.10.2019, 08:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2019, 08:55
Помогаю со студенческими работами здесь

Сформировать из исходного массива новый массив, являющий собой множество элементов исходного массива
Пусть даны целые числа a1, a2, …, an, среди которых могут быть повторяющиеся. Составьте новый...

Из исходного массива выбрать элементы, значения которых меньше 50 и сформировать новый
Из исходного массива А из 10 элементов выбрать элементы, значения которых меньше 50, но больше 10 и...

Сформировать новый массив, исключив из заданного массива числа, расположенные между max/min
Дано натуральное число n, целые числа а0, а1, .. an . Сформировать новый массив, исключив из...

Из элементов исходного массива сформировать новый массив
Дан целочисленный массив с количеством элементов N (значение элементов массива ввести с...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru