Есть задача:
Задача: Создать файлы f1 текстовый файл из непустых строк.
Посчитать количество строк, которые начинаются с буквы «л»;
Найти максимальную длину строк.
}
program Zadanie3_9;
uses crt;
type fil=text;
var
f1:fil;
name:string[35];
txt:string;
i:char;
kol, max, m, t:integer;
begin
Clrscr;
write('Vvedite imja faila');
readln(name);
writeln;
assign(f1,name);
rewrite(f1);
writeln('Vvedite text dlja zapisi (dlja okon4anijaя-Enter):');
writeln;
repeat
write(':>');
readln(txt);
writeln(f1,txt);
until txt='';
close(f1);
writeln;
writeln('Vvod okon4en');
reset(f1);
kol:=0;
while not eof(f1) do begin
readln(f1,i);
if i='l' then
kol:=kol+1;
end;
writeln('Kol-vo rjadov na4inauwihsja s "l": ', kol);
close(f1);
reset(f1);
m:=0;
max:=2; {on raven 1 tak kak kursor uje stoit na pervom simvole}
while not Eof(f1) do begin {Proverka end file}
read(f1,i);
if not eoln(f1) then max:=max+1;
if max>m then m:=max;
if eoln(f1) then max:=0;
end;
m:=m-1;
writeln('Maximalnaya dlina stroki: ',m);
close(f1);
readln;
end.
А необходимо чтобы код программы выполнял такое условие:
Создать файл f из целых чисел. Найти:
- Количество парных чисел среди компонент
- Максимальный компонент файла
- Поместить максимальный компонент на место последнего.
Зарание спасибо всем кто принимал участие в помощи.