1. кількість стовпців таблиці описує властивістьа) соісоunt б,) rowcount. в) fixedcols. г) fixedrows2. правила (ознака), за яким виконують впорядкування елементів 3. установіть відповідність між властивостями елементів іння мемо та їх описом1. lines. 2. maxlength. 3. left4. top5.fontа) максимальна довжина тексту в полі меморандумб) шрифт, який використовують для відображення текстув) відстань від правої межі поля до лівої межі формиг) відстань від лівої межі поля до правої межі формид.) масив рядків, що відповідає вмісту поля
1) program Array16;
var
i:integer; // счетчик в цикле
N:integer;
a: array [1..10] of integer;
begin
writeln('Введите N (N<10)');
readln(N); // ввод размера массива
for i:=1 to N do
begin
write('a[',i,']=');
readln(A[i]); // ручной ввод значений массива
end;
writeln('Результат');
for i:=1 to N do
begin
// вычисление и вывод элементов в указанном порядке
write(' ',a[(i div 2+1)*((i) mod 2)+ n*((i+1)mod 2)-((i div 2)-1)*((i+1) mod 2)]);
end;
end.
2) Var A:array[1..100] of integer;
i,n:byte;
Begin
write('Введите n<=100: ');readln(n);
For i:=1 to n do
Begin
A[i]:=random(31);
write(A[i]:3);
End;
writeln;
For i:=1 to n div 2 do
write(A[i]:3,A[n-i+1]:3);
if n mod 2 <>0 then write(A[n div 2+1]:3);
End.