Задание 1 Вариант 3 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

1. Напишите программу. Заполните массив С[1..20] так, чтобы каждый элемент с чётным номером был равен половине своего номера, а каждый элемент с нечётным номером — нулю.
По результатам работы программы заполните таблицу:
С[1] = С[6] = С[11] = С[16] =
С[2] = С[7] = С[12] = С[17] =
С[3] = С[8] = С[13] = С[18] =
С[4] = С[9] = С[14] = С[19] =
С[5] = С[10] = С[15] = С[20] =
program s4_v3_1;
const
n = 20;
var
c: array[1..n] of integer;
i: integer;
begin
writeln(‘ввод массива’);
for i := 1 to n do
begin
if (i mod 2 = 0) then c[i] :=round(i / 2)
else c[i] := 0;
writeln(‘c[‘, i, ‘]=’, c[i])
end;
end.

Нужно заполнить массив $$C[1..20]$$ по правилу: если номер элемента чётный, то значение равно половине номера; если номер нечётный, то значение равно $$0$$.

Тогда получаем:

Программа на Pascal:

program s4_v3_1;
const
  n = 20;
var
  c: array[1..n] of integer;
  i: integer;
begin
  for i := 1 to n do
  begin
    if i mod 2 = 0 then c[i] := i div 2
    else c[i] := 0;
  end;
end.

Ответ

$$C[1]=0,\ C[2]=1,\ C[3]=0,\ C[4]=2,\ C[5]=0,\ C[6]=3,\ C[7]=0,\ C[8]=4,\ C[9]=0,\ C[10]=5,\ C[11]=0,\ C[12]=6,\ C[13]=0,\ C[14]=7,\ C[15]=0,\ C[16]=8,\ C[17]=0,\ C[18]=9,\ C[19]=0,\ C[20]=10$$