Octave / file

str=0;
sym=0;
word=0;
max='';
min='jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj';
avg=0;
%количество строк, слов и символов в файле;
%самую длинную и самую короткую непустую строку;
%среднее количество символов в строке.

f=fopen('Pushkin.txt','rt+');
f1=fopen('Pushkin2.txt','wt+');
while(feof(f)~=1)
s1=fgetl(f)
s2=zamena(s1)
str=str+1;
sym= sym +length(s2);
avg=sym / str;
if (length(max)<length(s2))
max=s2;
endif
if (length(min)>length(s2))
min=s2;
endif
idx=strfind(s2,' ');
word=length(idx)+1;
fprintf(f1,'%s\n',s2);
endwhile
str
sym
word
max
min
avg
fprintf(f1,'%s\n','Статистика');
fprintf(f1,'%s\t%u\n',"Строки :", str);
fprintf(f1,'%s\t%u\n','Символы :', sym);
fprintf(f1,'%s\t%u\n','Слова :', word);
fprintf(f1,'%s\t%s\n','Макс.строкаа :', max);
fprintf(f1,'%s\t%s\n','Мин. строка :', min);
fprintf(f1,'%s\t%u\n','Среднее :', avg);
fclose('all')