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

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

ВАРИАНТ 3

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(taskввод массиваtask);

for i := 1 to n do

begin

if (i mod 2 = 0) then c[i] :=round(i / 2)

else c[i] := 0;

writeln(taskc[task, i, task]=task, c[i])

end;

end.