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

писька228 · 19 Окт 2017

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

TolisMan · 19 Окт 2017

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 · 19 Окт 2017

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

hackullo · 19 Окт 2017

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

Geimer1414 · 19 Окт 2017

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

kronos11111111 · 19 Окт 2017

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

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

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