Задание 4 Вариант 3 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Босова, Босова, Аквилянов
11 класс
Класс
11
Предмет
Информатика
Автор
Босова, Босова, Аквилянов
Задание 4 Вариант 3 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Задача
Напишите программу. Заполните массив $$C[1..20]$$ случайными целыми числами, принадлежащими промежутку $$[20, 100]$$, и выведите его на печать. По результатам работы программы заполните таблицу:
| $$C[1]$$ = | $$C[6]$$ = | $$C[11]$$ = | $$C[16]$$ = |
| $$C[2]$$ = | $$C[7]$$ = | $$C[12]$$ = | $$C[17]$$ = |
| $$C[3]$$ = | $$C[8]$$ = | $$C[13]$$ = | $$C[18]$$ = |
| $$C[4]$$ = | $$C[9]$$ = | $$C[14]$$ = | $$C[19]$$ = |
| $$C[5]$$ = | $$C[10]$$ = | $$C[15]$$ = | $$C[20]$$ = |
Подробный ответ
Чтобы заполнить массив 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.
По результатам работы программы получаем значения массива:
| C[1]=71 | C[6]=51 | C[11]=89 | C[16]=95 |
| C[2]=69 | C[7]=96 | C[12]=66 | C[17]=97 |
| C[3]=35 | C[8]=22 | C[13]=41 | C[18]=37 |
| C[4]=39 | C[9]=51 | C[14]=89 | C[19]=95 |
| C[5]=78 | C[10]=61 | C[15]=64 | C[20]=20 |
Другие учебники
Другие предметы