Заполните массив согласно условию: если индекс элемента массива (i) нечетный, то значение элемента должно находится по формуле i*2+1, а если четный, то значение элемента равно 1. Вывести массив на экранах.
Сделать в Паскале. Информатика, 9 класс. Заранее спасибо.

Согласна, но ведь править не мне... )))

Да это я так, понудить)))

Тяжёлый день? )

Нет, это перфекционизм ))

№373 помогите с информатикой 30 баллов https://znanija.com/task/30418297

var a:array [1..10] of integer;

i:integer;

begin

for i:=1 to 10 do  

if i mod 2 <> 0 then a[i]:=i*2+1 else a[i]:=1;

writeln('Mассив: ',a);

end.

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('Количество элементов в массиве:');

 var a := ArrGen(n, i -> i.IsEven ? 2 * i + 3 : 1);

 a.Println

end.

Количество элементов в массиве: 133 1 7 1 11 1 15 1 19 1 23 1 27