Функция GetLine возвращает подстроку с номером n из строки.

Function GetLine(s: string; n: integer): string;

Var p: integer;

begin

{удалить пробелы в начале строки}

While (pos(' ', s)=1)and (length(s)> 0) do

delete(s, 1, 1);

if n> 1 then

repeat

p: =pos(#13, s);

if p< > 0 then

begin

s: =copy(s, p+2, length(s)-p);

While (pos(' ', s)=1)and (length(s)> 0) do

delete(s, 1, 1);

n: =n-1;

end

until(n=1) or (p=0);

if n> 1 then result: =''

else

begin

p: =pos(#13, s);

if p< > 0 then result: =copy(s, 1, p-1)

else result: =s;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

Var a: array [1..10]of string[20];

i: integer;

st: string;

begin

For i: =1 to k do

a[i]: =GetLine(Memo1.Text, i);

st: ='';

For i: =1 to k do

st: =st+a[i]+#13;

ShowMessage(st);

end;

Рисунок 4 - Результат работы программы ввода массива

Задание 2

Выполнить обработку одномерного массива по заданию. Предусмотреть 2 варианта ввода массива:

1) в строке Edit по одному элементу;

2) в редакторе Memo или в строке Edit ввести весь массив.

Вывод массива выполнить с помощью компонент ListBox и ComboBox. Выводить нужно как исходный массив, так и результирующий

Даны целые числа X(n). Переписать в новый массив все числа, лежащие в диапазоне [-3, 7].

Рисунок 5 – Экранная форма