1. Информационные ресурсы – это … а) общественно значимая информация б) товар, который нельзя продать в) компьютерные технологии г) информационные услуги 2. Как называется пpогpамма, котоpая загpужается пpи включении компьютеpа? а) пpикладной программой б) системой программирования в) вс программой г) опеpационной системой 3. Выберите устройство для подключения компьютера к телефонной линии с целью передачи и приема информации на далекое расстояние. а) сетевая карта б) модем в) видеоадаптер г) сенсорная панель 4. Выберите устpойства вывода инфоpмации. а) дисковод б) монитоp в) пpинтеp г) сканер д) клавиатура е) плоттер 5. Алфавит содержит 256 символов. Каков информационный объём сообщения из 1024 символов? а) 1 Килобайт; б) 8 Килобит; в) 1024 бита; г) 213 байт д) 213 бит. 6. В ячейке В1 записана формула =А$1*$А1. Какой вид приобретет формула, после того как ячейку В1 скопируют в ячейку D2? а) =A$1*$А2 б) =С$1*$C2 в) =С$1*$А2 г) =С$2*$C2

Странный вопрос. Минимальное количество тестов - 1, если учитывать что массив будет полностью протестирован. Но если рассматривать, каждое последующие число массива как тест, то столько сколько элементов массива.
Минимальное 1 потому что, не указана какая процедура сортировки участвует. Допустим, я создал одномерный массив из 10 элементов. Если мне дана задача на логику (истина, ложь) то тогда мне потребуется протестировать каждый элемент массива, либо же если "тест" понятие глобальное - то один раз, пока не пройдут все элементы или пока логика не будет выполнена. Если же мне дано задание на сравнение (больше или меньше) то мне потребуется по 2 теста на 1 элемент массива (если воспринимать слово тест локально).

Function Is3Base(s:string):Boolean;
{
  Возвращает True, если строка представляет натуральное число
  в троичной системе счисления
}
const
  Dig3Base=['0'..'2'];
var
  i,n:integer;
  err:boolean;
begin
  n:=Length(s);
  if n=0 then Is3Base:=False
  else begin
    i:=n;
    repeat
      err:=not(s[i] in Dig3Base);
      Dec(i);
    until (i=0) or err;
    Is3Base:=not err
  end
end;

procedure DigitsAlign(var s1,s2:string);
{
  Дополняет слева нулями короткое слагаемое до длинного
}
var
  i,n,l1,l2:integer;
begin
  l1:=Length(s1); l2:=Length(s2);
  if l1>l2 then
    for i:=l2+1 to l1 do s2:='0'+s2
  else
    for i:=l1+1 to l2 do s1:='0'+s1
end;

function Add3Base(s1,s2:string):string;
{
  Сложение на строках натуральных чмсел s1 и s2
  в системе счисления по основанию 3
}
var
  s:string;
  c0,i,ip,d:integer;
begin
  c0:=Ord('0');
  If not Is3Base(s1) then Add3Base:=s1+' не троичное'
  else
    if not Is3Base(s2) then Add3Base:=s2+' не троичное'
    else begin
      DigitsAlign(s1,s2);
      ip:=0; s:='';
      for i:=Length(s1) downto 1 do begin
        d:=Ord(s1[i])+Ord(s2[i])-2*c0+ip;
        if d>2 then begin ip:=1; d:=d-3 end
        else ip:=0;
        s:=Chr(d+c0)+s
      end;
      if ip=1 then s:='1'+s;
      Add3Base:=s
      end
end;
 
var
  s1,s2,sr:string;
begin
  Write('Введите первое слагаемое в троичной системе: ');
  Readln(s1);
  Write('Введите второе слагаемое в троичной системе: ');
  Readln(s2);
  Writeln(s1,'(3) + ',s2,'(3) = ',Add3Base(s1,s2),'(3)')
end.

Тестовое решение:
Введите первое слагаемое в троичной системе: 12101120122001
Введите второе слагаемое в троичной системе: 10020021122
12101120122001(3) + 10020021122(3) = 12111210220200(3)