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

Обработка одномерного массива

20.09.2011, 23:17. Просмотров 1056. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста немогу разобраться...
Даны целые числа а1, ... а20.Получить новую последовательность,выбросив из исходной все члены со значением min(а1,...а20).

Для тех кто не понял а1-1 это индекс.
а1,...а20 это с а1 по а20.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.09.2011, 23:17
Ответы с готовыми решениями:

Обработка одномерного массива
Дополнить программу с обработкой одномерного массива (применение StringGrid) его сохранением в файл...

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

Упорядочить элементы массива одномерного массива по возрастанию
Программа высчитывает сумму элементов массива(по строкам) и записывает в одномерный массив В....

Преобразование одномерного массива
Преобразовать одномерный массив вещественных чисел в массив целых чисел больших исходных на два...

Модификация одномерного массива
Привет! Нужно приложение, позволяющее 1) задать кол-во элементов одномерного массива; 2)...

2
deathNC
1892 / 1005 / 123
Регистрация: 08.12.2009
Сообщений: 2,792
Записей в блоге: 2
21.09.2011, 12:56 2
Лучший ответ Сообщение было отмечено raavaa как решение

Решение

Что-то вроде этого:
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
33
34
35
36
program arrays;
 
{$Apptype Console}
 
const
  N = 20;
 
var
  arr: Array of Integer;
  min, i, j: Integer;
 
begin
  SetLength(arr, n); // выделяем память под множество чисел
  // вводим числа ручками:
  for i := 0 to High(arr) do
    begin
      WriteLn('Enter arr[', i, '] here: ');
      ReadLn(arr[i]);
    end;
  // ищем значение минимального элемента
  min := arr[0];
  for i := 1 to High(arr) do
    If min < arr[i] then
      min := arr[i];
  // удаляем все минимальные:
  for i := High(arr) downto 0 do
    If arr[i] = min then
      begin
        for j := i to High(arr) - 1 do
          arr[j] := arr[j + 1;
        SetLength(arr, High(arr))
      end;
  for i := 0 to High(arr) do
    WriteLn(arr[, i, '] = ', arr[i]);
  ReadLn;
end.
0
raavaa
0 / 0 / 0
Регистрация: 13.04.2011
Сообщений: 73
23.09.2011, 23:28  [ТС] 3
Спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.09.2011, 23:28

ДПФ одномерного массива
Столкнулся с проблемой реализации дискретного преобразования фурье Суть моей программы такова...

Сортировка одномерного массива
Ребята помогите написать прогу на delphi для сортировки одномерного массива из 20 чисел по...

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


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

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

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