Вот сортировка прямого выбора
В кабинете информатики
Запрещено:
1.Включать компьюторы без разрешения
2. Бегать по классу.
3. Ронять монитор, грязными руками трогать клавиатуру, с едой садится за компьютер.
в кабинете химии
Запрещено:
1.Трогать реактивы, пробовать на вкус, выливать на пол.
2. Бегать по классу.
3. Когда учитель проводит опыт, отвлекать от опыта!
Var
n, cnt, sum, i, t: integer;
begin
read(n);
cnt := 0;
sum := 0;
for i := 1 to n do
begin
read(t);
if t > 0 then
begin
inc(cnt);
sum := sum + t;
end;
end;
writeln(sum / cnt : 0 : 1);
write(cnt);
end.
Var x, y, a, nod:integer;
nok:real;
begin
readln(x,y);
a:=x*y;
repeat if x > y then x:=x mod y
else y:=y mod x
until x*y=0;
nod:=x+y;
writeln(nod);
nok:=a/nod;
writeln(nok);
end.