Program Prog;
Uses crt;
var a: array [1..100] of real;
i, N: integer;
begin
clrscr;
Write('N = ');
readln(n);
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
writeln('Положительные числа: ');
for i:=1 to n do
if (a[i]>0) then
writeln('a[',i,'] = ', a[i]);
end.
<span>Ищем эти два члена, сортируем массив между ними, выводим</span>
Р1,Р2,Р3 - разбойники
К1,К2,К3 - купцы
дальше идут только действия
1) туда Р1 и Р2
2) обратно Р1
3) туда Р1 и К1
4) обратно Р1
5) туда Р1 и Р3
6) обратно К1
7) туда К1 и К2
8) обратно Р1
9) туда Р1 и К3
А) [т][е][к][с][т].
б) [т][е][к][с][т][о][в][а][я]
[и][н][ф][о][р][м][а][ц][и][я].
в) [д][о][к][у][м][е][н][т].
г) [с][и][м][в][о][л].