6. Заполните одномерный массив из n элементов следующим образом: Номера элементов массива...

Question

6. Заполните одномерный массив из n элементов следующим образом: Номера элементов массива 1 2 3 4 5 6 7 … Значения элементов массива 0 3 0 5 0 7 0

Answer 1

Const k = 1000;
var a:array[1..k] of integer;
i,n:integer;
begin
  writeln('введите n ');
  readln(n);
  for i:=1 to n do begin
    if i mod 2 = 0 then a[i]:=i+1;
    write(a[i],' ');
  end;
end.

Тестовое решение:
введите n
10
0 3 0 5 0 7 0 9 0 11