Question

Напишите программу на Паскале, в которой будет заполнен массив С[1..20] так, чтобы каждый элемент с чётным номером был равен половине своего номера, а каждый элемент с нечётным номером - нулю.

Answer 1

Хорошо, вот программа на Паскале, которая будет заполнять массив С:

```pascal
program FillArray;
uses crt;

var
C: array[1..20] of Integer;
i: Integer;

begin
// Обнуляем все элементы массива
for i := 1 to 20 do
begin
C[i] := 0;
end;

// Заполняем элементы массива с чётными номерами
for i := 2 to 20 step 2 do
begin
C[i] := i div 2;
end;

// Выводим полученный массив на экран
for i := 1 to 20 do
begin
WriteLn('C[', i, '] = ', C[i]);
end;

ReadKey;
end.
```

Давай пошагово разберем эту программу:

1. Объявляем переменные:
- `C: array[1..20] of Integer` - массив C из 20 элементов, где каждый элемент является целым числом.
- `i: Integer` - переменная для циклов и индексации массива.

2. `begin` - начало основной части программы.

3. `for i := 1 to 20 do` - цикл для обнуления всех элементов массива C. Мы проходим по всем индексам массива и присваиваем им значение ноль.

4. `for i := 2 to 20 step 2 do` - цикл для заполнения элементов с чётными номерами. Мы проходим по индексам, начиная с 2 и увеличиваем индекс на 2 на каждой итерации. Таким образом, мы заполняем только элементы с чётными номерами.

5. `C[i] := i div 2;` - присваиваем элементам с чётными номерами значение, равное половине их номера. Оператор `div` используется для выполнения целочисленного деления, чтобы получить результат в целых числах.

6. `for i := 1 to 20 do` - цикл для вывода элементов массива на экран. Мы проходим по всем индексам массива и выводим значения элементов C[i].

7. `end.` - конец основной части программы.

8. `ReadKey` - команда для остановки выполнения программы и ожидания нажатия клавиши пользователем.

После выполнения этой программы, на экране отобразится массив С, в котором элементы с нечетными номерами будут равными нулю, а элементы с четными номерами будут равными половине своего номера.