program Project9;

{$APPTYPE CONSOLE}
uses
SysUtils;

type t=array[1..100] of string;
t1=array[1..100] of integer;
t2=text;

procedure vvodm(var a:t;var n:integer);
var i:integer;
begin
writeln('vvedite massiv strok:');
for i:=1 to n do
readln(a[i]);
end;

procedure mas(a:t; n:integer; var b:t1; var m:integer);

var
st:string;
kol,i,j,z:integer;
str:string;
ch:char;
begin
writeln('vvedite stroku st:');
readln(st);
m:=length(st);
kol:=0;
for i:=1 to m do
begin
for j:=1 to n do
for z:=1 to length(a[j]) do
begin
str:=a[j];
ch:=str[z];
if st[i]=ch then kol:=kol+1;
end;
b[i]:=kol;
kol:=0;
end;
end;

procedure vf(fname:string; b:t1; m:integer);

var i:integer;
f:t2;
begin
assign(f,fname);
rewrite(f);
for i:=1 to m do
begin
write(f,b[i]);
end;
closefile(f);
end;


var
a:t;
b:t1;
f:t2;
n,m:integer;
s:string;
begin
writeln('vvedite razmer massiv:');
readln(n);
vvodm(a,n);
mas(a,n,b,m);
vf('C:\f2.txt',b,m);
assign(f,'C:\f2.txt');
reset(f);
while not eof(f) do
begin
read(f,s);
writeln(s);
end;
closefile(f);
READLN;
end.


Случайные файлы

Файл
Readme.txt
Readme.txt
216849 (2).txt
данные.txt
DOKLAD.TXT




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.