. Дан одномерный вещественный массив А(N) , не содержащий нулевых элементов - Pascal

Формулировка задачи:

Товарищи, выручайте. Очень зашиваюсь и с информатикой проблемы.. а учебный план давит =( очень нужно на завтра эти задачки решить. Помогите пожалуйста. 1. Дан одномерный вещественный массив А(N) , не содержащий нулевых элементов. Составить одномерный массив В из положительных элементов массива А и одномерный массив С из отрицательных элементов массива А. 2. Дан одномерный вещественный массив А(N). Выделить все элементы, попадающие в заданный (своими границами) диапазон и их порядковые номера в исходном массиве в два отдельных одномерных массива. 3. Дан одномерный вещественный массив А(N). Составить одномерный массив В из номеров элементов массива А, оканчивающихся на 1 и кратных трем.

Решение задачи: «. Дан одномерный вещественный массив А(N) , не содержащий нулевых элементов»

Листинг программы

for i:=1 to n do
if (arr[i] mod 10 = 1) and (arr[i] mod 3 = 0) then
begin
  inc(j);
  b[j]:=arr[i];
end;

Объяснение кода листинга программы

В данном коде выполняется следующая последовательность действий:

Инициализируется переменная i значением 1.
Задается условие, которое будет выполняться для каждого элемента массива arr от индекса 1 до n.
Внутри условия происходит проверка двух условий: arr[i] mod 10 = 1 и arr[i] mod 3 = 0. Это означает, что проверяется, является ли остаток от деления arr[i] на 10 равным 1 и остаток от деления arr[i] на 3 равным 0.
Если оба условия выполняются, то выполняется следующая последовательность действий:
- Переменная j увеличивается на 1.
- Значение arr[i] присваивается переменной b[j]. То есть, значение arr[i] сохраняется в массиве b в индексе j.
После выполнения всего условия, значение i увеличивается на 1 и выполнение цикла продолжается.
Если условие не выполняется, то выполнение цикла продолжается без выполнения внутренних действий. Таким образом, данный код выполняет поиск элементов в массиве arr, которые удовлетворяют условиям arr[i] mod 10 = 1 и arr[i] mod 3 = 0, и сохраняет их в массиве b.