  y:=0;
  repeat
    k:=1;
    for m:=2 to i do if z[k]<=z[m] then k:=m;
    y:=y+1;
    v[y]:=w[k];
    z[k]:=0;
    summa:=0;
    for g:=1 to i do summa:=summa+z[i];
  until summa=0;
  for g:=1 to i do
  form3.RichEdit1.Lines[i-1]:=v[i];

но ничего не выводится. У меня не получилось найти ошибки, может быть это у вас получится. Помог8ите пожалуйста.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

18.12.2009, 21:11

Ответы с готовыми решениями:

Упорядочивание массива
Не могу понять, как решить такую задачу: Дана последовательность x1, x2 ... xn, упорядоченная в...

Описать упорядочивание массива процедурой
дана задача:Ввести последовательность из N целых чисел.Упорядочить по возрастанию нечетные(по...

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

Упорядочивание первых 4 элементов массива по убыванию, последних 4 элементов - по возрастанию
Здравствуйте! Нужно написать программу, создающую одномерный целочисленный массив из 10 элементов,...

	18.12.2009, 21:11

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

18.12.2009, 21:11

Помогаю со студенческими работами здесь

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

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

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

Создание одномерного массива
Создать одномерный массив вот само задание 2 задание сделано!!! не понятки со 1!!

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

Или воспользуйтесь поиском по форуму:

Наверх