Задачи на массивы. V тип задач «Вычеркивание элементов массива»

Дорогие 9-классники!
Сегодня на уроке мы должны были разобрать еще один тип задач на массивы «Вычеркивание элементов массива», но вам придется разбирать задачи этого типа самостоятельно.

Обратите внимание!
1. Элементы массива вводятся в первом цикле.
2. Второй цикл используем для обработки элементов массива (осуществляем выборку элементов массива A, удовлетворяющих заданному условию, в новый массив В).
3. В третьем цикле выводим полученный результат на экран.

Изучите внимательно пример, протестируйте программу в среде программирования и решите домашние задачи.
Пример
Дан одномерный массив A[10]. Написать программу, которая будет исключать из данного массива все нулевые элементы.
Решение
Program Isklychenie;
VAR A, B: array [1 . . 10] of integer; i, j: integer;
Begin
       Randomize;
       For i: =1 to 10 do
              Begin
                     A[i]: = Random (20) – Random (20);
                     Writeln (‘A[’, i, ‘]=’, A[i]);
              End;
       j: = 0;
       For i: = 1 to 10 do
              Begin
                     IF A[i] <> 0 THEN
                            Begin
                                   j: = j + 1;
                                   B[j]: = A[i];
                            End;
       Writeln (‘Новый массив, не содержащий нулей:’);
       For i: =1 to j do
              Begin
                     Writeln (‘B[’, i, ‘]=’, B[i]);
              End;
End.

Подумайте, как можно усовершенствовать данную программу. Попробуйте домашние задачи записать иначе.

Итак, домашние задачи:
Задача 1
Дан одномерный массив A[10]. Написать программу, которая будет вычеркивать из массива элементы, индексы которых кратны трем.

Задача 2
Дан одномерный массив A[10]. Написать программу, которая будет переписывать из данного массива все положительные элементы в массив B.

Желаю удачи!