Втекстовом файле, содержащем данные типа real, поменять местами максимальный и минимальный элементы(паскаль)

104

441

Посмотреть ответы 2

Ответы на вопрос:

nomerperv

Информатика

4,5(47 оценок)

//боль //pascal abc.net 3.1 сборка 1219 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