Question

Если кто сможет, помогите. 1)Cформировать и вывести на экран массив из 12 элементов каждые два последовательных элемента которого составлены по следующему правилу: 1-ый элемент равен удвоенному текущему индексу; 2-ой элемент целой части от деления числа на 3. 2)Сформируйте массив В из N элементов с помощью датчика случайных чисел [-10;60]. Получите новый массив, каждый элемент которого равен разности элемента и его индекса.

Answer 1

1)
Замечание: не очень понятно какое число надо делить на 3. В программе на 3 делится первый элемент из каждой пары.
const n=12;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n div 2 do
 begin
 a[2*i-1]:=2*i;
 a[2*i]:=a[2*i-1] div 3;
 end;
for i:=1 to n do write(a[i],' ');
writeln;
end.

Результат:
2 0 4 1 6 2 8 2 10 3 12 4

2)
const n=12;
var b:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
 begin
 b[i]:=random(71)-10;
 write(b[i]:4);
 end;
writeln;
for i:=1 to n do
 begin
 b[i]:=b[i]-i;
 write(b[i]:4);
 end;
writeln;
end.

Пример:
17 54 4 -7 31 33 -6 27 14 59 0 43
16 52 1 -11 26 27 -13 19 5 49 -11 31