Сделай таблицы в таблице!
т.е. сначала создаешь одну таблицу на 2 столбца и в каждом столбце создаешь нужные таблицы! тогда они будут рядом!!!
1)
Var A [6..7] = 2 элемента.
Var C [5..13] = 8 элементов.
Var K [0..19] = 20 элементов.
Var A [1..8] = 8 элементов.
Var D [-8..15] = 24 элемента.
2)
1. for h := 1 to 112 do
writeln(h);
2. for i := 0 to 96 do
writeln(i);
3)
1. K[6] = 11
2. R[4] + K[1] = 28
3. 2 + K[6] = 13
4. K[1 + 2] = 7
5. K[5] + 10 = 22
6. 10 * K[4] = 260
var a:array [1..100] of int;
i,j,n,t,winners:integer;
Begin
writeln("Введите кол-во делителей");
read(n);
writeln("Введите k");
read(k);
writeln("Введите делители");
for i := 1 to n do
read(a[i]);
for i:= a to b do begin
t:=0;
for j:= 1 to n do
if i mod a[j] = 0 then t:=t+1;
if t=k then winners:=winners+1;
end;
writeln(winners);
End.