дан массив из целых чисел X[1 ... 5]. Заменить каждый элемент массива с нечетным номером средним арифметическим индексов соседних элементов.

Question

Информатика

Иосафат

14 июня, 20:46

дан массив из целых чисел X[1 ... 5]. Заменить каждый элемент массива с нечетным номером средним арифметическим индексов соседних элементов.

+5

Ответы (1)

Знаете ответ на вопрос?

Горя · Answer 1

var

x : array [1 ... 5] of real;

i : integer;

begin for i : = 1 to 5 do

if i mod 2 = 1 then

x[i] : = (i+1+i-1) / 2;

for i : = 1 to 5 do

writeln (x[i]:3:2) ;

end.