Одна книга тысячу людей учит. Книга – в ней два листа, а серединка пуста. За семью печатями. В умной голове сто рук. Один за всех и все за одного. Премудрость одна, а мудростей много. Сто голов - сто умов. От слова до дела сто перегонов. Слово слово родит, третье само бежит. Руки побьют одного, знание побьёт тысячу. За учёного двух неучёных дают, да и то не берут. Один добрый опыт важнее семи мудрых поучений. Семь мудрецов дешевле одного опытного человека. Бог любит троицу.
Если элементы массива идут по возрастанию, то вот так
program wstawka; uses crt; const min=1; max=20; type zona=min..max; massiw=array[zona] of integer; var mas:massiw; i,j:zona; a,N,M:integer; T:boolean; BEGIN randomize; clrscr; N:=random(20); writeln('4ucJlo N = ',N); M:=random(20); Writeln('4ucJlo M = ',M); for i:=min to max-2 do begin mas[i+1]:=mas[i]+random(5); write(mas[i],' '); end; for i:=min to max-2 do if (mas[i]>N) and (t=false) then begin t:=true; a:=mas[i]; mas[i]:=N; for j:=i+1 to max do begin N:=mas[j]; mas[j]:=a; a:=N; end; end; for i:=min to max-1 do if (mas[i]>M) and (t=true) then begin t:=false; a:=mas[i]; mas[i]:=M; for j:=i+1 to max do begin M:=mas[j]; mas[j]:=a; a:=M; end; end; writeln; for i:=min to max do write(mas[i],' '); readkey; END.
Одна книга тысячу людей учит.
Книга – в ней два листа, а серединка пуста.
За семью печатями.
В умной голове сто рук.
Один за всех и все за одного.
Премудрость одна, а мудростей много.
Сто голов - сто умов.
От слова до дела сто перегонов.
Слово слово родит, третье само бежит.
Руки побьют одного, знание побьёт тысячу.
За учёного двух неучёных дают, да и то не берут.
Один добрый опыт важнее семи мудрых поучений.
Семь мудрецов дешевле одного опытного человека.
Бог любит троицу.