Способ получения элементов массива: Ввод с клавиатуры
Алгоритм поиска: Сравнение с выделенной ячейкой (min)
Алгоритм сортировки: Быстрая сортировка (по возрастанию)
Осталась быстрая сортировка, с которой трудности возникают. И в целом проверьте программу, буду благодарен.
program Dz;
uses crt;
const t='SORTIROV.txt';
var f: file of real;
s:real;min:real;
procedure out_fil;
var a:array [1..20] of real;
i, j:integer; s1:string;
begin
assign(F,t);
i:=1;
repeat
writeln ('Введите число или * (признак конца ввода)');
readln (s1);
val(s1,s,j);
if s1<>'*' then
begin
a[i]:=s;
i:=i+1;
end;
until s1='*';
rewrite(f);
for j:=1 to i-1 do
write (F,a[j]);
close(f);
end;
{--------------------------------------------------------------}
procedure input_fil;
begin
assign (f,t);
reset(f);
read (f,s);
min:=s;
repeat
read (f,s);
if s< min then min:=s;
writeln (s:4:2,' ');
until EOF(f);
close(f);
end;
{----------------------------------------}
begin
clrscr;
gotoxy (15,8);
writeln ('Программу разработал Grief');
gotoxy (10,10);
{out_fil;}
writeln ('Чтение из файла');
clrscr;
input_fil;
writeln('min= ', min:4:0);
gotoxy (10,20);
writeln('Нажмите любую клавишу');
readln;
end.