Дана последовательность из 70 целых чисел. Определить, с какого количества отрицательных чисел она начинается. Выполнить в среде delphi.

Содержание:

Задание

Дана последовательность из 70 целых чисел. Определить, с какого количества отрицательных чисел она начинается. Выполнить в среде Delphi.

Программа выполнена на Delphi 2005 (версия 9).

Алгоритм

Для отображения чисел на экране использован компонент типа TStringGrid (7 рядов по 10 колонок. Ряды нумеруются с нуля, колонки с 1).

Для выбора варианта заполнения последовательности использован компонент типа TComboBox.

Для вывода пояснений и ответа использованы компоненты TLabel. Кроме того, использованы компоненты TButton и для вывода пояснений и предупреждений дважды использован TForm.

Блок-схема основной процедуры программы:

начало

Ввод последовательности Queue[1..70]

i