Словесная форма алгоритма:
<u>начало</u>
<u>введите</u> Х
<u>если</u> Х>10 <u>тогда</u>
Х=Х+2
<u>иначе</u>
Х=Х*10
<u>напечатать</u> Х
<u>конец</u>
Var
i: integer;
ar: array[1..8]of integer;
begin
for i := 1 to 8 do read(ar[i]);
for i := 1 to 8 do
if(i mod 2 = 0) then write(ar[i], ' ');
end.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger('Количество элементов в массиве:');
var a := ArrGen(n, i -> i.IsEven ? 2 * i + 3 : 1);
a.Println
end.
<h3>Количество элементов в массиве: 13</h3><h3>3 1 7 1 11 1 15 1 19 1 23 1 27</h3>