одномерный массив. найти номера тех элементов массива, значения которых совпадают с числом 12 (Delphi)

[Daniyar22]

помогите решить в дельфи!

условие задачи на одномерный массив


найти номера тех элементов массива, значения которых совпадают с числом 12

[Вадим Мошев]

Что у вас вызывает сложности? Почему сами не можете решить?

[ATL]

Гуглится это запросом "Delphi поиск элемента в массиве".

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
a:array[1..10] of integer;
found:boolean;

begin
for i:=1 to 10 do
//Преобразуем полученные подстроки в числа
 a[i]:=StrToInt(GetSubStr(Edit1.text,' ',i)); //используем пробел в качестве разделителя


found:=false;
i:=1;
REPEAT
if a[i] = 12 then found:=true
 else i:=i+1;
UNTIL (i > 10) or (found = true);
if found then showmessage('Совпадение с элементом номер '+IntToStr(i));
end;

[Daniyar22]

Сообщение от ATL

Гуглится это запросом "Delphi поиск элемента в массиве".

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
a:array[1..10] of integer;
found:boolean;

begin
for i:=1 to 10 do
//Преобразуем полученные подстроки в числа
 a[i]:=StrToInt(GetSubStr(Edit1.text,' ',i)); //используем пробел в качестве разделителя


found:=false;
i:=1;
REPEAT
if a[i] = 12 then found:=true
 else i:=i+1;
UNTIL (i > 10) or (found = true);
if found then showmessage('Совпадение с элементом номер '+IntToStr(i));
end;

a[i]:=StrToInt(GetSubStr(Edit1.text,' ',i)); выдает ошибку

[Аватар]

А почему бы и не быть ошибке? Нет такой функции. GetSubStr еще написать нужно или скопипастить например отсюда. За качество того кода не ручаюсь

[ATL]

И это тоже можно было нагуглить.

function GetSubStr(st:string; expl:string ;n:integer):string;
var p, i:integer;
Begin
  for i:= 1 to n-1 do
  begin
    p:=pos(expl, st);
    st:=copy(st, p+1, Length(st)-p);
    while (pos(expl, st) = 1) and (length(st) > 0) do
       delete(st, 1, 1);
  end;
  p := pos(expl,st);

  if p<>0 then result := copy(st, 1, p-1)
  else result := st;
End;

Либо Вы можете любым удобным способом изменить алгоритм программы, чтобы задать интересующий Вас одномерный массив.
Тут никто не знает откуда должен взяться одномерный массив. Здесь описан вариант с одним полем ввода, в которое через пробел вводятся числа.
Можете сделать 10 текстовых полей, можете сделать одно Memo и перебрать в нём строки, можете сгенерировать случайный массив и его проверять. Вариантов много.

[Daniyar22]

а какая команда будет для вывода числа 12 в другой эдит