Заполните массив согласно условию: если индекс элемента массива (i) нечетный, то значение...

Question

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

Answer 1

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.

Количество элементов в массиве: 13

3 1 7 1 11 1 15 1 19 1 23 1 27

Answer 2

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.

Comments

Я бы задавал 10 в const, чтобы если править - так в одном месте, а не искать по программе ))

---

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

---

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

---

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

---

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