Question

Составить программу заполнения массива а[1..10] следующими числами:индекс массива 1 2 3 4 5 6 7 8 9 10значение элемента 1 6 3 12 5 18 7 24 9 30закономерность- значения элементов с нечетными индексами равны индексу элемента,а значения элементов с четными индексами-утроенному индексу элементанужно он var то end.

Answer 1

Const
  n = 10;

var
  a: array[1..n] of integer;
  i: integer;

begin
  Write('Элементы массива: ');
  for i := 1 to n do
  begin
    if (i mod 2) = 0 then a[i] := 3 * i else a[i] := i;
    Write(a[i]:3)
  end
end.

Тестовое решение:

Элементы массива:   1  6  3 12  5 18  7 24  9 30

Answer 2

Var
i,n:integer;
f1,f2:text;
begin
assign(f1, 'input.txt');
assign(f2, 'output.txt');
reset(f1);
rewrite(f2);
read (f1,n);
for i:=1 to n do
if (i mod 2) = 1 then write(f2, i, ' ' ) else write (f2, i*3, ' ');  
close(f1);
close(f2);
end.

Answer 3

Для составления программы заполнения массива `a[1..10]` с заданными значениями, где значения элементов с нечетными индексами равны индексу элемента, а значения элементов с четными индексами утроены индексу элемента, можно использовать различные языки программирования, такие как Lua, C++, Python и другие.

Пример программы на языке Lua:

```lua a = {} for i = 1, 10 do if i % 2 == 0 then a[i] = 3 * i else a[i] = i end end ```

Пример программы на языке C++:

```cpp #include

int main() { int a[10]; for (int i = 1; i <= 10; i++) { if (i % 2 == 0) { a[i - 1] = 3 * i; } else { a[i - 1] = i; } } return 0; } ```

Пример программы на языке Python:

```python a = [] for i in range(1, 11): if i % 2 == 0: a.append(3 * i) else: a.append(i) ```

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