Question

1. Дан массив, заполненный случайным образом положительными числами. В массиве 10 элементов. Вставить в массив на седьмое место значение, равное 0, затем удалить из получившегося массива первый элемент. Вывести получившийся массив на экран.2. В программе описан одномерный целочисленный массив А с индексами от 0 до 15. Чему будут равны элементы этого массива после выполнения фрагмента программы?For i:=0 to 15 do A[i]:=i x z;For i:=1 to 15 do A[i]:=A[i-1];Оба задания требуется выполнить в программе Pascal. Спасибо.

Answer 1

1)
uses crt;
const n=11;
var i:integer;
a:array[1..n] of integer;
begin
randomize;
for i:=1 to n-1 do
begin
a[i]:=random(99);
write(a[i],' ');
end;
writeln();
for i:=n downto 8 do
a[i]:=a[i-1];
a[7]:=0;
for i:=1 to n-1 do
a[i]:=a[i+1];
for i:=1 to n-1 do
write(a[i],' ');
end.
2)
uses crt;
var i,z:integer;
A:array[0..15] of integer;
begin
read(z);
for i:=0 to 15 do 
A[i]:=i*z;
for i:=1 to 15 do 
A[i]:=A[i-1];
for i:=0 to 15 do
write(A[i],' ');
end.

Answer 2

Задание 1: Вставка и удаление элемента в массиве

Для выполнения данного задания вам потребуется использовать язык программирования Pascal. Вот пример кода, который выполняет требуемые операции:

program ArrayManipulation;

var
  arr: array[1..10] of Integer;
  i: Integer;

begin
  { Заполнение массива случайными положительными числами }
  Randomize;
  for i := 1 to 10 do
    arr[i] := Random(100) + 1;

{ Вставка значения 0 на седьмое место }
  for i := 10 downto 7 do
    arr[i] := arr[i - 1];
  arr[6] := 0;

{ Удаление первого элемента }
  for i := 1 to 9 do
    arr[i] := arr[i + 1];

{ Вывод получившегося массива на экран }
  for i := 1 to 9 do
    Write(arr[i], ' ');
  Writeln(arr[10]);
end.

После выполнения этого кода на экран будет выведен получившийся массив из 9 элементов.

Задание 2: Вычисление значений элементов массива

Для выполнения данного задания вам также потребуется использовать язык программирования Pascal. Вот фрагмент кода, который вычисляет значения элементов массива:

program ArrayCalculation;

var
  A: array[0..15] of Integer;
  i, x, z: Integer;

begin
  x := 2;
  z := 3;

for i := 0 to 15 do
    A[i] := i + x + z;

for i := 1 to 15 do
    A[i] := A[i - 1];

{ Вывод значений элементов массива на экран }
  for i := 0 to 15 do
    Write(A[i], ' ');
end.

После выполнения этого кода на экран будет выведен массив, состоящий из последовательных чисел от 5 до 23.

Примечание: Обратите внимание, что в задании не указано, какое значение должно быть присвоено переменным `x` и `z`. В приведенном коде используется значение `x = 2` и `z = 3`, но вы можете изменить их на любые другие значения в соответствии с вашими потребностями.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.