Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Parkervans
4 / 4 / 3
Регистрация: 19.04.2017
Сообщений: 64
#1

Получить новый массив, выбросив из исходного массива все члены с заданным значением - Turbo Pascal

22.10.2017, 19:27. Просмотров 275. Ответов 1

Здравствуйте! Проверьте пожалуйста решение задачи
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program massiv;
Var  n, i, j, Max : integer;   
A, B : array [1..100] of integer;
Begin
   write('Введите количество элементов массива  N = ');
   read(n);
   write('Введите ' , n, ' целых чисел - элементов массива  A:');
For  i := 1  to  n  do  
read(A[i]);//ввод элементов массива
j := 0;//номер очередного элемента в новом массиве
Max := A[1];// номер максимального элемента
For  i := 2  to  n  do  
If   A[i] > Max  then   
Max := A[i];
writeln('Новый массив В:');
For  i := 1  to  n  do  
If   A[i] <> Max  then begin //номер элемента массива не равен номеру максимальному элементу массива
j := j + 1; //увеличиваем номер очередного элемента в новом массиве 
B[j] := A[i];//номер последнего элемента массива b[j] будет равен количеству элементов в новом массиве
writeln(B[j], '  ')    
end;
writeln('В новом массиве  ', j, '  элементов');
end.
Добавлено через 20 минут
Дан массив {ai} , i= 1,2, ..., n. Получить новый массив {bi} , выбросив из исходного массива все члены со значением max(а1 ,а2 , ... , аn). Определить число элементов нового массива .
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.10.2017, 19:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Получить новый массив, выбросив из исходного массива все члены с заданным значением (Turbo Pascal):

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

Дан массив X(N). Сформировать новый массив, выбросив из исходного все элементы с наименьшим значением.
Помогите, пожалуйста, решить. И если можно, то поподробнее, а то что-то мало понимаю массивы...(

Получить новый массив, выбросив из исходного все числа, равные максимальному
вот условие :1. Заполнить 1-мерный массив В(N) методом ввода с клавиатуры, где N – заданное...

Получить последовательность выбросив из исходной все члены со значением max
Даны целые числа (a,a,..a). Получить последовательность выбросив из исходной все члены со значением...

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

Получить новую последовательность, выбросив из исходной все члены, которые деляться на 2 без остатка
Даны целые a1...... ai(i=i20) Получить новую последовательность выбросив из исходно все члены...

1
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,067
23.10.2017, 17:52 #2
Верно. Для Turbo Pascal лучше добавить строку
Pascal
readln;
после строк 9 и 22.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2017, 17:52
Привет! Вот еще темы с решениями:

Массив: Получить новый массив путем исключения Min и Max значений исходного массива...
Из исходного массива получить новый массив, из которого выбросить максимальное и минимальное...

Получить из исходного массива новый массив по заданному правилу
Даны действительные числа a1, …, a20. Получить числа b1,…, b20, где bi– среднее арифметическое всех...

Получить все члены массива А, которые не входят в массив В.
Дано два целочисленных массива: А из 15 элементов и B из 10 элементов. Получить все члены массива...

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


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

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

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