Версия для печати темы

Автор: kary 24.10.2010, 6:47

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

Program mas;
Var a:array [1..10] of integer;
i:byte;
Begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random (10);
write (a[i]); end;writeln;

это заполнение первого массива.а как второй сделать?

Автор: Vahappaday 24.10.2010, 6:50

свои наработки есть?
читаем правила)) без своих наработок вряд ли Вам окажут помощь... Или в платный раздел

Автор: Harch 24.10.2010, 9:51

Согласен с предыдущим сообщением. Где Ваши наработки?

Автор: kary 24.10.2010, 14:02

Program mas;
Var a:array [1..10] of integer;
i:byte;
Begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random (10);
write (a[i]); end;writeln;

это заполнение первого массива.а как второй сделать?

Автор: Julia 24.10.2010, 14:50

1) С вводом элементов массива вы должны справиться сами.
2) Для сохранения номеров заведите второй массив.

Автор: kary 25.10.2010, 10:09

вот я и не знаю,как его завести

Автор: Julia 25.10.2010, 13:57

Точно также как и первый. Опишите в разделе описания переменных. Организуйте цикл по элементам массива, сравнивайте их с нулем. Элементы удовлетворяющие услоию заносите в новый массив.
Цикл с параметром вы знаете, проверить равенство нулю тоже несложно, да и с оператором присваивания знакомы, а большего вам для решения задачи и не нужно, только чуть-чуть подумать. Вам нужно только правильно организовать нумерацию элементов нового массива.