Delphi7

[Славик42]

подскажите где что не правильно

procedure TForm1.Button1Click(Sender: TObject);
var mas:array[1..100] of integer;
i,n,a:integer;
begin
a:=strtoint(edit1.text);
n:=name1.Lines.count;
for i:=1 to n do
mas[i]:=strtoint(name1.Lines.Strings[i-1]);
for i:=1 to n do
if mas[i] mod a=0 then
memo2.lines.Add(inttostr(i))
else
memo2.Lines.Add('Элементов не найдено');
end;

[Serge_Bliznykov]

неправильно следующее:

1) название темы.
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.

2) оформление кода
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)


3) отсутствие внятного описания как задачи, так проблемы - что нужно сделать, что не работает и т.д.


поэтому - ТЕМА ЗАКРЫТА

Модератор