Цитата:
Сообщение от sisaw
извини забыл язык паскаль
|
Тогда - пожалуйста. Имя файла и путь к нему поставьте по своему усмотрению:
Код:
Var
f:file of Real;
i,N:Byte;
A,Max,Min,First,Last:Real;
Begin
Randomize;
N:=50+Random(100);
Assign(f,'D:\xxx');
Rewrite(f);
For i:=1 to N do
begin
A:=(Random-0.3)*100;
Write(f,A);
end;
Close(f);
Reset(f);
Read(f,First);
Min:=First;
Max:=First;
Repeat
if not EoF(f) then
begin
Read(f,Last);
If Last>Max then Max:=Last;
If Last<Min then Min:=Last;
end;
Until EoF(f);
Close(f);
Writeln('Max-Min = ',Max-Min:0:3);
Writeln('(First+Last)/2 = ',(First+Last)/2:0:3);
If (Max-Min)=((First+Last)/2) then
Writeln('Coincides!')
else
Writeln('Not coincides!');
Readln
End.