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

По результатам работы программы заполните таблицу:
С[1] = С[6] = С[И] = С[16] =
С[2] = С[7] = С[12] = С[17] =
С[3] = С[8] = С[13] = С[18] =
С[4] = С[9] = С[14] = С[19] =
С[5] = С[10] = С[15] = С[20] =
program s4_v3_4;
const
n = 20;
var
c: array[1..n] of integer;
i: integer;
begin
writeln(‘ввод массива’);
randomize;
for i := 1 to n do
c[i] := random(81) + 20;
for i := 1 to n do
writeln(‘c[‘, i, ‘]=’, c[i])
end.

Чтобы заполнить массив C[1..20] случайными целыми числами из промежутка $$[20,100]$$, в Паскале удобно использовать выражение random(81) + 20: функция random(81) даёт числа от $$0$$ до $$80$$, а после прибавления $$20$$ получаем значения от $$20$$ до $$100$$.

program s4_v3_4;
const
  n = 20;
var
  c: array[1..n] of integer;
  i: integer;
begin
  writeln(‘ввод массива’);
  randomize;
  for i := 1 to n do
    c[i] := random(81) + 20;
  for i := 1 to n do
    writeln(‘c[‘, i, ‘]=’, c[i]);
end.

По результатам работы программы получаем значения массива: