Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
simplesmile
0 / 0 / 0
Регистрация: 09.11.2016
Сообщений: 16
1

Удалить положительные числа из массива

23.12.2016, 15:28. Просмотров 225. Ответов 3
Метки нет (Все метки)

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
a: array [-4..4] of integer;
i,L:integer;
s:string;
begin
randomize;
 
for i:=-4 to 4 do
a[i]:=i+random(4);
 
for i:=-4 to 4 do
 
s:=s+inttostr(a[i])+' ';       // заполним переменную s  значениями из а
edit1.text:=s;
showmessage(s);
end;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2016, 15:28
Ответы с готовыми решениями:

Заменить все положительные числа массива на максимальное число массива.
Есть такое задание: Преобразовать массив. Заменить все положительные числа массива на максимальное...

Удалить из массива все нечетные числа и вывести размер полученного массива и его содержимое
Помогите пожалуйста решить 3 задачи в делфи на массивы:(нужно получить допуск к экзамену)))) 1....

Вывести сначала все положительные числа массива, затем – все отрицательные
Помогите пожалуйста с 2-мя задачками. и если можно объяснить примерно как сделали 1)Дан массив из...

Преобразование массива по правилу: сначала - все положительные, затем все отрицательные числа
Добрый день. Моя программа преобразует введенную пользователем последовательность в...

Удалить из массива все четные числа
Дан массив, состоящий из цифр. Удалить из него все четные числа. P.C числа рандомные....

3
Puporev
Модератор
55444 / 42560 / 29412
Регистрация: 18.05.2008
Сообщений: 100,675
23.12.2016, 15:51 2
Delphi
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
var a: array [1..9] of integer;
    n,i,j:integer;
    s:string;
begin
randomize;
n:=9;
s:='';
for i:=1 to n do
 begin
  a[i]:=-5+random(11;
  s:=s+inttostr(a[i])+' ';
 end;
edit1.text:=s;
i:=1;
while i<=n do
if a[i]>0 then
 begin
  if i<n then
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1;
 end
else i:=i+1;
if n=0 then s:='Все элементы удалены'
else
 begin
  s:='';
  for i:=1 to n do
  s:=s+inttostr(a[i])+' ';
  edit2.text:=s;
 end;
end;
0
Kitayets
340 / 294 / 103
Регистрация: 09.09.2011
Сообщений: 1,049
23.12.2016, 16:24 3
из массива элементы не удаляются.... просто не выводи положительные числа и все:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
a: array [-4..4] of integer;
i,L:integer;
s:string;
begin
randomize;
 
for i:=-4 to 4 do
a[i]:=i+random(4);
 
for i:=-4 to 4 do
 
if a[i] > 0 then continue;
 
s:=s+inttostr(a[i])+' '; // заполним переменную s значениями из а
edit1.text:=s;
showmessage(s);
end;
0
Puporev
Модератор
55444 / 42560 / 29412
Регистрация: 18.05.2008
Сообщений: 100,675
23.12.2016, 16:26 4
Цитата Сообщение от Kitayets Посмотреть сообщение
из массива элементы не удаляются
Это теоретически, но если уменьшить размер массива на их количество, то их и не будет.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2016, 16:26

Удалить из массива числа сумма цифр которых кратна 7
Необходимо удалить из массива числа сумма цифр которых кратна 7. Проблема состоит в том, что после...

Даны 3 целых числа возвести в квадрат отрицательные числа ив третью степинь - положительные (число 0 не изменять)
Даны 3 целых числа возвести в квадрат отрицательные числа ив третью степинь - положительные (число...

Уменьшить положительные элементы массива A на величину K, а положительные элементы массива B увеличить на величину К
Дан массив вещественных чисел A(A1,A2,...,An) и B(B1,B2,...,Bn).Уменьшить положительные элементы...


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

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

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