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

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

22.10.2017, 19:27. Просмотров 348. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

1
Cyborg Drone
Модератор
5297 / 3176 / 2442
Регистрация: 17.08.2012
Сообщений: 10,189
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

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

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

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


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

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

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