Учимся дистанционно. Информатика. 10 класс. Обработка элементов массива

Дорогие 10-классники!

Предлагаю вашему вниманию еще два типа задач на обработку элементов массива.

Что делать? Как делать?
1. Изучите внимательно предложенные программы, протестируйте их в среде программирования (скачать с официального сайта бесплатно).

IV тип "Замена элементов массива"
Обратите внимание!
1. Элементы массива вводятся в первом цикле.
2. Второй цикл используем для обработки элементов массива (осуществляем проверку условия задачи, заменяем и выводим полученный результат на экран).
Пример
Дан одномерный массив A[10]. Написать программу, которая будет заменять все отрицательные элементы их квадратами, а положительные – их кубами.
Решение.
Program z1;
VAR A: array [1 . . 10] of integer; i: integer;
Begin
       Randomize;
       For i: =1 to 10 do
              Begin
                     A[i]: = Random (20) – Random (20);
                     Writeln (‘A[’, i, ‘]=’, A[i]);
              End;
      Writeln (‘Новый массив:’);
       For i: = 1 to 10 do
              Begin
                     IF A[i] < 0 THEN
                                          A[i]: = A[i] * A[i]
                                        ELSE
                                          A[i]: = A[i] * A[i] * A[i];
                   Writeln (‘A[’, i, ‘]=’, A[i]);
              End;
End.


V тип «Вычеркивание элементов массива».
Обратите внимание!
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.

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

3. Решите задачи.

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

2. Дан массив целых чисел. Написать программу, которая все элементы, оканчивающиеся цифрой 4, уменьшит вдвое.

4. Пришлите скрины решенных задач с условиями на электронный адрес a.stulikova@gmail.com

Не болейте! Берегите себя и близких! Удачи!