20 звезд.Можно легко проверить,переделав алгоритм.
var s:integer;
procedure F(n: integer);
begin
writeln('*');
if n>0 then begin
writeln('*');
s:=s+1;
F(n-2);
F(n div 2);
F(n div 2);
end;
end;
begin
f(7);
writeln(s);
end.
Задача решается с помощью составления обычной пропорции (см. рисунок).
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.
В планьшете, в телефоне, в телевизорах
В бизнесе генеральный директор четко распределяет обязанности между подчиненными. Одни занимаются построением определенной последовательности действий, другие, подчиняясь этому течению, расширяют и дополняют его необходимой информацией, чтобы в итоге получить необходимый результат.
Когда мы рождаемся, родители вкладывают в нас программу, по которой мы слепо следуем, пока не вырастем. Но будучи чуть постарше, начинаем развивать некий алгоритм внутри себя, чтобы как-то проявиться, добиться высот.
Человек, который составляет программы, должен в голове моделировать алгоритм будущего решения. Если же он не обладает достаточным опытом, то и результат может оказаться другим.