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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Parkervans
4 / 4 / 0
Регистрация: 19.04.2017
Сообщений: 34
#1

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

22.10.2017, 19:27. Просмотров 162. Ответов 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):

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

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

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

Дан массив целых чисел, содержащий 10 элементов. Составить новый массив, записать в него сначала все положительные элементы исходного массива - Pascal
, потом все отрицательные элементы, потом нули... Да прибудет с вами сила...

Дан массив целых чисел. Составить новый массив, элементами которого являются числа-перевертыши исходного массива - Pascal
Дан массив целых чисел. Составить новый массив, элементами которого являются числа-перевертыши исходного массива (типо 345 -543 или 1000...

Дан одномерный массив действительного типа. Получить массив, состоящий из отрицательных чисел исходного массива - Turbo Pascal
Помогите пожалуйста решить задачку) Дан одномерный массив действительного типа. Получить другой массив, состоящий только из отрицательных...

1
Cyborg Drone
Модератор
4836 / 3005 / 1209
Регистрация: 17.08.2012
Сообщений: 9,632
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
Привет! Вот еще темы с ответами:

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

Дан массив B(21) Сформировать новый массив из кратных 4 чисел исходного - Turbo Pascal
Дан массив B(21) Сформировать новый массив из кратных 4 чисел исходного. Мальчики, помогите пожалуйста с задачей, программирование вообще...

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

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


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

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

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