Организовать текстовый файл состоящий из N строк. Вывести на экран строки, размер которых больше среднего размера строки в файле.

program fail;

uses crt;

var f :text;

s,s1 :array[1..100]of string;

n,i,sum,sr:integer;

begin

clrscr;

assign(f,'stroki.txt');

rewrite(f); // заполняем файл

write('Введите количество строк = ');

readln(n);

for i := 1 to n do

begin

writeln('Введите строку ',i,':');

readln(s[i]);

writeln(f,s[i]);

end;

close(f);

clrscr;

assign(f,'stroki.txt');

reset(f); // читаем файл

n:=1;

while not eof(f) do

begin

readln(f,s1[n]);

n := n+1;

end;

close(f);

sum:=0;

for i:=1 to n do

begin

sum := sum + length(s1[i]); // считаем длину всех слов

end;

sr := round(sum/(n-1)); // вычисляем среднюю длину

writeln('Средняя длина строки = ',sr);

writeln;

writeln('Строки длиннее средней : ');

for i:=1 to n do // выводим строки согласно условию

if length(s1[i])>sr then

begin

writeln(s1[i]);

end;

readln;

end.

Скачать решение.