Первый тип — линейный алгоритм; такой, в котором все действия выполняются в строгом порядке, последовательно, одно за другим. Типичный жизненный пример такого алгоритма — рецепт пирога. Второй тип — разветвляющийся алгоритм; такой, в котором выполняются те или иные действия в зависимости от выполнения или невыполнения некоего условия. Пример из жизни — правило перехода улицы по светофору. Если горит красный — стоим, если горит зеленый — идем. Третий тип — циклический алгоритм; такой, в котором присутствуют повторяющиеся действия с какой-либо изменяющейся величиной, так называемым параметром. Пример — колка дров. Берем полено — колем топором, берем второе полено и т. д. , пока поленья не закончатся, и эта работа нам не надоест.
Var f:text; max,min,p:real; maxn,minn,n,i:integer; ar:array of real; s:string; begin max:=real.MinValue; min:=real.MaxValue; n:=0; assign(f,'text.txt'); reset(f); while not(Eof(f)) do begin read(f,p); inc(n); setlength(ar,n); ar[n-1]:=p; if ar[n-1]>max then begin max:=ar[n-1]; maxn:=n-1; end; if ar[n-1]<min then begin min:=ar[n-1]; minn:=n-1; end; end; close(f); swap(ar[minn],ar[maxn]); for i:=0 to n-1 do if i<>n-1 then s:=s+floattostr(ar[i])+' ' else s:=s+floattostr(ar[i]); rewrite(f); write(f,s); close(f); end.
Пример содержимого text.txt: 0 -2.1 1.1 Пример содержимого text.txt после работы программы: 0 1.1 -2.1
не впевнена, але може бути акула.