27. Записать в файл последовательного доступа N действительных чисел. Найти разность наибольшего
из этих чисел со средним арифметическим всех положительных чисел файла.
Решение
program
lab27;
var
f:text;
i:integer;
q,max:real;
a:array[1..10]
of real;
begin
q:=0;
assign(f,'1.txt');
rewrite(f);
for i:=1
to 10 do
begin
write('vvedite
', i,' chislo ');
readln(a[i]);
write(f,a[i],'
');
writeln;
end;
close(f);
max:=a[1];
for i:=1
to 10 do
begin
if
a[i]>max then max:=a[i];
q:=q+a[i];
end;
q:=q/10;
writeln('max
= ',max:3:2,' sr.arif = ',q:3:2);
writeln('Raznost
max i sr.arif = ',(max-q):3:2);
end.