По первой задаче. К сожалению у меня не получилось сделать программу с водимыми числами. К результату привел генератор случайных чисел. Но генератор использовать нельзя=(
program z6
Uses crt;
var
M:array [1..10] of integer;
min,n,i,s,j:integer;
begin
clrscr; { write ('Введите n= ');
readln(n);}
For i:=1 to 10 dowriteln (m[i]);
readln (m[i]);
For i:=1 to n-1 do
begin
min:=M[i]; j:=i;
for s:=i+1 to n do
if M[s]<min then
begin
min:=M[s]; j:=s;
end;
M[j]:=M[i];
M[i]:=min;
writeln;
end;
For i:=1 ton do write (M[i], ' ');
readkey;
end.
По второй задаче я так и не смог нечего добиться. Ход моих мыслей тут явно не поможет... Помогите пожалуйста. Если завтра не сдам то мне хана 
Добавлено (07.01.2010, 11:51)
---------------------------------------------
P.S. Если сможете решить, выложите пожалуйста программный код.
