Миша разрабатывает сайты -> пользуется HTML (и это не язык программирования, а язык разметки! Косяк авторов задачи)
Лена пишет макросы -> Visual Basic for Applications
Остались Prolog (язык логического программирования) и Pascal (структурного). Таня не умеет работать с Паскалем, значит, знает Пролог. А Серёже остается Паскаль.
Найдите закономерности и продолжите последовательности. а) а, б, в, г, ... б)а, в, д, ё, ... в)Анна Борис, Валентина, Геннадий,
gendo
А) а, б, в, г, д, е, ... — буквы русского алфавита
б) а, в, д, ё, з, й, ... — буквы русского алфавита через одну
в) Анна, Борис, Валентина, Геннадий, Дмитрий, Елизавета, ... — имена, начинающиеся на буквы русского алфавита
г) о, д, т, ч, п, ш, с, ... — первые буквы чисел (Один, Два, Три...)
д) Москва, Абакан, Норильск, Киев, Воркута, Архангельск, ... — "игра в города" — каждое следующее название начинается на последнюю букву предыдущего
Var n, i, min, max, min_i, max_i, tmp: integer; a:array[1..100] of integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
min := a[1];
max := a[1];
min_i := 1; {номер минимального}
max_i := 1;
for i := 2 to n do
begin
if min > a[i] then
begin
min := a[i];
min_i := i;
end;
if max < a[i] then
begin
max := a[i];
max_i := i;
end;
end;
tmp := a[max_i];
a[max_i] := a[min_i];
a[min_i] := tmp;
for i := 1 to n do
write(a[i], ' ');
end.
Ответ:
23 9 3 24
влбаовоаталчлвдаььслсьвлсьальа