Заполнить массив a числами. Получить новый массив b,

[weeping angel]

procedure TForm1.Button1Click(Sender: TObject);
const
  n = 5;
var
i:integer;
a: array [1..n] of integer;
begin

for i:=1 to n do
a[i]:=strtoint(memo2.text[i,1]);
for i:=1 to  n do
 if (a[i] mod 2)<>0 then a[i]:=a[i]*2;

for i:=1 to n-1 do
memo1.Text:=memo1.Text+inttostr(a[i])+', ';
memo1.Text:=memo1.Text+inttostr(a[n]);
end;

Выдает ошибку Array type required, помогите исправить

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

ошибка тут:

Сообщение от weeping angel

memo2.text[i,1]

А это что Вы таким образом пытаетесь получить?

какую задачу должен решить цикл заполнения массива?
и где проверка, что в Memo2 есть нужно число цифр (именно цифр, а не чисел)?!

[weeping angel]

Заполнить одномерный целочисленный массив a числами, введѐнными с клавиатуры в поле Memo1. Получить новый массив b, удвоив нечѐтные элементы массива a, чѐтные оставить без изменения. Полученный массив b отобразить в поле Memo2.

Задача такая, но до этого в мемо 1 пытался поставить stringgrid, не получилось, поэтому сейчас по условиям мемо 1 это мемо 2, и наоборот)

[Serge_Bliznykov]

Сообщение от weeping angel

но до этого в мемо 1 пытался поставить stringgrid, не получилось,

ну, так может быть, стоит разобраться и сделать именно со StringGrid?

Сообщение от weeping angel

Заполнить одномерный целочисленный массив a числами, введѐнными с клавиатуры в поле Memo1.

для простоты заставим пользователя вводить числа в Memo1 строго так - каждое число - на отдельной строке.

тогда сработает такой код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, n : integer;
  a, b: array of integer;
   
begin
  SetLength(a, Memo1.Lines.Count);

  n := 0;

  for i:=0 to Memo1.Lines.Count-1 do 
     if Trim(Memo1.Lines[i])<>'' then begin
          a[n] := StrToInt( Trim(Memo1.Lines[i]) );
          inc(n);
     end;

  if n=0  then begin ShowMessage('Введите числа в Memo1'); exit end;

  SetLength(b, n);

  for i:=0 to n-1 do
    if odd(a[i]) then b[i] := 2*a[i]
       else b[i] := a[i];

  memo2.Lines.Clear;
  for i:=0 to n-1 do
       memo2.Lines.Append(IntToStr(b[i]));

end;