Переключение клавиатуры с режима ввода прописных букв и обратно

Если что это, то это курсив

ответ:

3

объяснение:

в а[0] - минимальное значение в массиве.

если а[i] меньше а[0] то делаем вот что:

1) увеличиваем с на один

2) меняем местами а[0] и а[i].

т.е. с увеличением каждый раз, когда видим что а[0] больше а[i]

массив такой: 6, 7, 3, 8, 5, 1, 2, 0, 9, 4

первый раз это случится с тройкой и массив станет таким:

3, 7, 6, 8, 5, 1, 2, 0, 9, 4

с станет единицей

следующий раз с однеркой:

1, 7, 6, 8, 5, 3, 2, 0, 9, 4

и с стало двойкой

и последний раз это случится с нулем, после чего массив будет такой: 0, 7, 6, 8, 5, 3, 2, 1, 9, 4

и с станет тройкой.

надеюсь стало понятнее

program planet;

var r1, r2, l1, l2, v1, v2, time1, time2 : real; c, b : string;

begin write('планета1-'); readln(b); write('планета2-'); readln(c); write('r1='); readln(r1); write('r2='); readln(r2); write('v1='); readln(v1); write('v2='); readln(v2); l1: =2*pi*r1; l2: =2*pi*r2; time1: =l1/v1; time2: =l2/v2; writeln('продолжительность года на пленете ',b,'= ', time1: 0: 2, ' суток'); writeln('продолжительность года на пленете ',c,'= ', time2: 0: 2, ' суток'); end.

 

 

 

 

как-то так)