Задание 3 Вариант 2 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
По результатам выполнения программы заполните таблицу:
А[1] = А[6] = А[11] = А[16] =
А[2] = А[7] = А[12] = А[17] =
А[3] = А[8] = А[13] = А[18] =
А[4] = А[9] = А[14] = А[19] =
А[5] = А[10] = А[15] = А[20] =
program s4_v2_3;
var
b,a : array[1..20] of integer;
n,i: integer;
begin
writeln(‘ввод массива’);
randomize;
for i := 1 to 20 do
begin
b[i] := random(81);
writeln(‘b[‘, i, ‘]=’, b[i])
end;
writeln;
n:=20;
for i:=20 downto 1 do
begin
a[n-i+1]:=b[i];
writeln(‘a[‘,n-i+1,’]=’,a[n-i+1])
end;
end.
Программа сначала заполняет массив $$B[1..20]$$ случайными числами, а затем переписывает его элементы в массив $$A[1..20]$$ в обратном порядке:
$$A[1]=B[20],\ A[2]=B[19],\ \ldots,\ A[20]=B[1].$$
По таблице значений получаем:
| A[1]=45 | A[6]=43 | A[11]=73 | A[16]=53 |
| A[2]=16 | A[7]=76 | A[12]=52 | A[17]=63 |
| A[3]=14 | A[8]=42 | A[13]=65 | A[18]=66 |
| A[4]=33 | A[9]=25 | A[14]=66 | A[19]=71 |
| A[5]=10 | A[10]=52 | A[15]=44 | A[20]=6 |
program s4_v2_3;
var
b, a: array[1..20] of integer;
n, i: integer;
begin
writeln(‘ввод массива’);
randomize;
for i := 1 to 20 do
begin
b[i] := random(81);
writeln(‘b[‘, i, ‘]=’, b[i]);
end;
writeln;
n := 20;
for i := 20 downto 1 do
begin
a[n — i + 1] := b[i];
writeln(‘a[‘, n — i + 1, ‘]=’, a[n — i + 1]);
end;
end.
Ответ
A[1]=45, A[2]=16, A[3]=14, A[4]=33, A[5]=10, A[6]=43, A[7]=76, A[8]=42, A[9]=25, A[10]=52, A[11]=73, A[12]=52, A[13]=65, A[14]=66, A[15]=44, A[16]=53, A[17]=63, A[18]=66, A[19]=71, A[20]=6.