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
Увы, украинского не знаю, но надеюсь, что понятно. 1. Папка не существует на жёстком диске, как хранилище данных, папка - лишь запись в Master File Table (главной таблице файлов). 2. Тип файла определяет, какого вида информация в нём может содержаться, а расширение - часть имени файла, указывающая на, но не определяющая его тип. Иными словами, можно сменить расширение файла, чтобы скрыть его "природу", но тип файла от этого не изменится и все программы открывать файлы этого типа, по-прежнему будут открыть этот файл. 3. В Windows используются буквенные обозначения - A и B ранее были зарезервированы для дисководов гибких дисков, а начиная с Windows Vista или 7 под эти буквы можно вручную назначить что угодно. C обычно отводится для системного диска, остальные жёсткие диски автоматически получают буквы, начиная с D. В Linux всё иначе, диски и дисководы подключаются в "точки монтирования" в зависимости от настроек пользователя - например, дисковод CD\DVD-дисков можно найти в /mnt/cdrom, а системный диск монтируется в корень /.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку