Работа с массивами

Задача 10 (4.2)

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

Математическое описание задачи

Для реализации задачи будем использовать два массива. В первый массив случайным образом запишем N элементов. Выводя элементы на экран, визуально просмотрим порядковые номера элементов, которые равны нулю. Задавая цикл с параметром последовательно сравним все элементы с нулем, в случае нахождения истины присвоим каждому элементу нового массива номер элемента первого массива, и выведем данный массив на экран.

Словесно формульное описание задачи

• 1. Вывести на экран «Дана следующая последовательность «.
• 2. Выполнять цикл пункта 3 для всех i отвечающих условию 1? i?n, далее перейти к пункту 4.
• 3. Заполнить массив случайными числами, перейти к пункту 2.
• 4. Выполнять цикл пункта 5 для всех i отвечающих условию 1? i?n, далее перейти к пункту 6.
• 5. Вывести на экран i элемент массива, перейти к пункту 4.
• 6. Вывести на экран «Массив из номеров нулевых элементов «.
• 7. Выполнять цикл с пункта 8 по 11 для всех i отвечающих условию 1? i?n, далее перейти к пункту 12.
• 8. Если i элемент массива равен нулю, то перейти к пункту 9, иначе перейти к пункту 7.
• 9. Второму элементу массива с индексом j присвоить порядковый номер первого массива i, перейти к пункту 10.
• 10. Вывести на экран массив с jтым элементом, перейти к пункту 11.
• 11. Вычислить j=j+1, перейти к пункту 7.
• 12. Конец программы.
• 4.1.3 Блок схема алгоритма

4.1.4 Реализация алгоритма на языке Pascal.

Program Zadacha10;

uses crt;

const N=50;

var a: array[1.N] of integer;

b:array[1.N] of integer;

i, j: integer;

Begin clrscr; j:=1;

writeln ('Дана следующая последовательность:');

for i:=1 to N do.

a[i]: =random (10);

for i:=1 to N do.

write (a[i],' ');

writeln;

writeln ('Массив из номеров нулевых элементов последовательности:');

for i:=1 to N do.

begin.

if a[i]=0 then begin.

b[j]: =i;

write (b[j],' ');

j:=j+1;

end;

end;

readln;

End.

Тестирование алгоритма задачи