Создается, так сказать, массив, длину которого вводите вы. Затем вы его заполняете. В цикле происходит сортировка чисел массива от меньшего к большему(если число слева больше числа справа, то поменять их местами) и выводится на экран первые два числа, то есть 2 наименьших числа массива.
Однако тупо реализовано создание массива. Неважно сколько вы впишете длину массива(<100), он все равно будет занимать память на 100 символов, а это очень глупо. Для создания динамических массивов(массивы , размеры которых РЕАЛЬНО указываете вы сами) используйте указатели.
var a,b:integer;
S:real;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
S:=1/2*a*b;
writeln('S = ',S);
end.
Странный вопрос. Минимальное количество тестов - 1, если учитывать что массив будет полностью протестирован. Но если рассматривать, каждое последующие число массива как тест, то столько сколько элементов массива.
Минимальное 1 потому что, не указана какая процедура сортировки участвует. Допустим, я создал одномерный массив из 10 элементов. Если мне дана задача на логику (истина, ложь) то тогда мне потребуется протестировать каждый элемент массива, либо же если "тест" понятие глобальное - то один раз, пока не пройдут все элементы или пока логика не будет выполнена. Если же мне дано задание на сравнение (больше или меньше) то мне потребуется по 2 теста на 1 элемент массива (если воспринимать слово тест локально).
все эти "предметы" использует человек, сидя.