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

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

11.12.2012, 19:42. Показов 1394. Ответов 4
Метки нет (Все метки)

В массиве А=(a1,a2,...,an) удалить все положительные эллементы имеющие четный порядковый номер и идущие после минимального элемента массива.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Program lab;
Uses crt;
type arr=array[1..15] of integer;
var a:arr; {массив}
i,j,n:byte; {индексы, длина массива}
i_max:byte; {индекс максимального элемента массива}
max:integer; {аксимальный элемент}
begin
writeln('Удалить все положительные элементы, расположенные справа от минимального');
writeln;
{$R+} {Включение контроля значений индексов}
clrscr; {очистка экрана}
n:=15;
randomize;
writeln('Исходный массив: ');
for i:=1 to n do {генерация элементов массива}
begin
a[i]:=-20+random(41); {в диапозоне [-20;20]}
write (a [i]:4);
end;
writeln;
max:=a[1];
i_max:=1;
for i:=2 to n do
if a[i]<max then
begin
max:=a[i];
i_max:=i;
end;
i:=i_max;
while i<=n do {цикл для проверки элементов на знак}
begin
if a[i]<0 then {если элемент отрицательный, то}
begin
for j:=i to n-1 do {цикл удаления i-го элемента}
a[j]:=a[j+1];
n:=n-1; {уменьшение длины массива}
end
else
i:=i+1; {иначе переход к следующему элементу}
end;
writeln('Результат обработки:');
for i:=1 to n do
write(a [i]: 4);
readln;
{$R-} {Выключение контроля значений индексов}
end.
помогите пожалуйста
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2012, 19:42
Ответы с готовыми решениями:

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

В одномерном массиве А=(а1,а2...аn) все положительные элементы, имеющие чётный порядковый номер
Помогите плиз написать программу: В одномерном массиве А=(а1,а2...аn) все положительные элементы,...

В массиве А=(а1,а2...аn) удалить все положительные элементы...
Помогите плиз написать программу: В массиве А=(а1,а2...аn) удалить все положительные элементы,...

В первом массиве найти все положительные элементы, во втором массиве найти все отрицательные элементы и сформировать массив
В первом одномерном массиве найти все положительные элементы, во втором одномерном массиве найти...

4
14 / 14 / 14
Регистрация: 09.12.2012
Сообщений: 56
11.12.2012, 22:22 2
Чем помочь-то? Что за код?
0
0 / 0 / 0
Регистрация: 11.12.2012
Сообщений: 4
11.12.2012, 22:27  [ТС] 3
из массива удалить все положительные эллементы имеющие четный порядковый номер и идущие после минимального элемента массива.
Код этот получился у меня, но он работает неправильно!
Мне нужен либо работающий код, либо найти ошибку в моём.
0
Добры_Змейка
53 / 53 / 43
Регистрация: 09.06.2010
Сообщений: 170
12.12.2012, 00:47 4
а если два или три эллемента массива могут быть минимальными?
пример(- 16 7 4 12 -4 -14 6 -16 -5 -10 -4 18 11 -14 11) тогда после какого из них удалять?
0
0 / 0 / 0
Регистрация: 11.12.2012
Сообщений: 4
12.12.2012, 17:28  [ТС] 5
Удалять после обоих я думаю.

Добавлено через 7 часов 24 минуты
кто нибудь поможет?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2012, 17:28
Помогаю со студенческими работами здесь

Удалить все элементы массива, имеющие наибольшее значение
удалить все элементы, имеющие наибольшее значение.

В массиве все положительные элементы умножить на 10, а все отрицательные заменить на 0
1. В одномерном массиве размерностью N все положительные элементы умножить на 10, а все...

Дано 60 чисел.найти разность между числами имеющими четный и нечетный порядковый номер
дано 60 чисел.найти разность между числами имеющими четный и нечетный порядковый номер

В типизированном файле 20 чисел. Увеличить в 2 раза все элементы, чей порядковый номер кратен 3
11. В типизированном файле 20 чисел. Увеличить в 2 раза все элементы, чей порядковый номер кратен...


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

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

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