Массив одномерный (Delphi)

[rob7777]

Добрый вечер!Задана простенькая задачка,в паскале у меня легко получается, а надо в delphi, где-то допустил ошибку.В самом условии,кажется, ошибка.И еще 1 вопрос: есть способ, чтобы быстрее задать массив?Заранее спасибо)


Задана последовательность X = (x1, x2, …, x10).
Сформировать из неё одномерный массив Y, состоящий из элементов массива Х, кратных 3. Если таковых не окажется, вывести фразу «Элементов, кратных 3, нет». Полученный массив напечатать в строчку.
X = {12.3, 7, 9.5, 27, 91.2, 9, 21.4, 111, 3.2, 51}.

procedure TForm1.Button1Click(Sender: TObject);
var a,y:array[1..10]of integer;
i,j:integer;
s:string;
begin
a[1]:=3;
a[2]:=6;
a[3]:=7;
a[4]:=8;
a[5]:=2;
a[6]:=1;
a[7]:=38;
a[8]:=75;
a[9]:=32;
a[10]:=31;
j:=0;
for i:=1 to 10 do
if (a[i] mod 3= 0) then
begin
j:=j+1;
y[j]:=a[i];
end;


if j=0 then  Showmessage('Таких элементов нет')
else
for i:=1 to j do
s:=s+ IntToStr(y[j])+' ';


Showmessage(s);
end;

[rob7777]

программа работает неправильно, она 3 раза выдает 75, может кто помочь?

[Stilet]

y[i] а не y[j].
У тебя i - итератор цикла

[Serge_Bliznykov]

индекс в цикле выводе указан неверно, цикл же по I - а Вы всё время выводите один и тот же последний элемент массива Y - y[j]

а ещё надо ОБЯЗАТЕЛЬНО добавить зануление строки S перед циклом!
попробуйте:

if j=0 then  Showmessage('Таких элементов нет')
else begin
  s := '';
  for i:=1 to j do
     s:=s+ IntToStr(y[i])+' ';
  Showmessage(s);
end;

[rob7777]

а, дурак я, точно. Спасибо!)правда так и не понял зачем обнулять S

Чуть не забыл, а можно как-то иначе задать массив,если мне уже заданы его элементы, а то так долго набивать?

[Stilet]

const a:array[1..10] of integer={тут элементы через запятую};

[rob7777]

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

const a:array[1..10] of integer={тут элементы через запятую};

не получается...в прямоуголных[] скобках или как?

[Stilet]

Не, в круглых. Это я с Си попутал...

[rob7777]

Получилось,спасибо)