вот сделал
Код
for i:=1 to 20 do begin
WriteLn(i,':',a[i]:10);
Assign(g,'text2.txt');
Append(g);
Write(g,i, ' - ',a[i]);
Close(g);
end;
а как сделать чтобы в тексте выводилось с новой страки
у меня вот что получилось
Код
01 - 12 - 43 - 84 - 135 - 16 - 77 - 08 - 09 - 310 - 011 - 012 - 013 - 014 - 015 - 016 - 017 - 018 - 019 - 020 - 0
а мне надо
Код
01 - 12
02 - 43
03 - 84
04 - 135
.....
можно такое сделать???
Добавлено через 7 мин. ура все сделал вначале ступил)))))
вот код если кому интересно
Код
const
Letters=['A'..'Z','a'..'z'];
var
f: file of char;
g: text;
a: array[1..20]of integer;
i: integer;
c: char;
begin
Assign(f,'text1.txt');
ReSet(f);
i:=0;
while not EoF(f) do begin
Read(f,c);
if c in Letters then Inc(i) else if i>0 then begin
Inc(a[i]);
i:=0
end
end;
Close(f);
if c in Letters then Inc(a[i]);
Assign(g,'text2.txt');
Append(g);
for i:=1 to 20 do begin
WriteLn(i,':',a[i]:10);
Writeln(g,i, ' - ',a[i]:10);
end;
Close(g);
end.
Lapp спасибо тебе огромное если хочешь за помощь магу рублеф 50 кинуть на вебмани токо вечером