Delphi

[Sem4ka]

В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов. программку нужно в Delphi написать

[Serge_Bliznykov]

для начала определитесь, как Вы будете описывать целочисленную последовательность (что это - массив, список, просто последовательно вводимые числа)?!

[_-Re@l-_]

Суть такая:

var A:array[1..50] of integer;
     i:integer;
     B:array[1..50] of integer;
begin
       for i:=1 to 50 do
       if A[i] = 0 then B[i]:=i;

Остальное сами допишете

[Sem4ka]

спасибо,попробую дописать

Можете помочь еще с такой программой:
Записать в файл последовательного доступа № действительных чисел. Вычислить произведение компонентов файла и вывести на печать.

[eoln]

Сообщение от _-Re@l-_

Суть такая:

var A:array[1..50] of integer;
     i:integer;
     B:array[1..50] of integer;
begin
       for i:=1 to 50 do
       if A[i] = 0 then B[i]:=i;

Неправильно - в таком случае получится массив с дырками. Например, если A={1, 0, 7, 3, 0, 5}, то по вышеприведённому получим B={0, 2, 0, 0, 5, 0}. Что и как вводится не известно, но если это статические массивы, то правильно будет так

k := 0;
for i:=1 to 50 do
       if A[i] = 0 then begin inc(k); B[k]:=i; end;

где k - размерность нового массива

[Sem4ka]

вот написал прогу,но она почему-то при запуске ошибку выдает:

var mas:array[1..50] of integer;
    i,k:integer;

begin
randomize;
      for i:=1 to 10 do
              mas[i]:=Random(50);end;
label1.caption:=label1.caption + inttostr(mas[k])+ ' ';
label2.caption:=label2.caption + inttostr(mas[i])+ ' ';
end;

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

[Nazar1994]

Лутче напишы что ты хочеш от проги, а то по коду не видно.

[Sem4ka]

В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов. вот этого я хочу добиться от программы