Вопрос Составьте программу заполнения массива не используя клавиатуру, числами 1, -3, 5, -7, 9, -11, -13, -

[писька228]

Составьте программу заполнения массива не используя клавиатуру, числами 1, -3, 5, -7, 9, -11, -13, -15

 

[TolisMan]

const n=8; var a: array[1..n] of integer; i:integer; begin for i:=1 to n do begin if odd(i) then a:=2*i-1 else a:=(-1)*(2*i-1); write(a,) end; end.

 

[Sell-accs]

Блин, это как голосовым набором что ли программу без клавиатуры писать?))

 

[hackullo]

Объявить массив с заданными данными, зависит от языка.

 

[Geimer1414]

Должно быть не -13, а 13. for i := 1 to n do a := (2 * i - 1) * (2 * ord(odd(i)) - 1);

 

[kronos11111111]

Re: Составьте программу заполнения массива не используя клавиатуру, числами 1, -3, 5,

Блин, это как голосовым набором что ли программу без клавиатуры писать?))

нет,просто писькой, но 22.8 см)))