В текстовом файле, содержащем данные типа real, поменять местами максимальный и минимальный элементы(Паскаль)
В текстовом файле, содержащем данные типа real,
поменять местами максимальный и минимальный элементы(Паскаль)
Гость
Ответ(ы) на вопрос:
Гость//Боль
//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]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
Не нашли ответ?
Похожие вопросы