Учеба и наука

• Всего ответов: 2


Валентина
3-й в
411 отзыв
Что значит средней? 
Найти среднюю строку в столбике? А если их четное число, какую считать средней?
Или имеется в виду вычислить среднюю длину всех строк, но она может быть не целым числом. Округлить. Уточните пожалуйста, сделаю.
март 20, 2014 г.

Валентина
3-й в
411 отзыв
program pr;
uses crt;
var f,g:text;
st:string;
l:real;
k:integer;
begin
assign(f,'text.txt');
reset(f);
l:=0;k:=0;
while not eof(f) do
begin
readln(f,st);
l:=l+length(st);
k:=k+1;
end;
l:=trunc(l/k);
reset(f);
assign (g,'text1.txt');
rewrite(g);
while not eof(f) do
begin
readln(f,st);
if length(st)>=l then
writeln(g,st);
end;
reset(g);
while not eof(g) do
begin
readln(g,st);
writeln(st);
end;
close(g);
close(f);
end.
март 20, 2014 г.

Похожие вопросы