program Exam16;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
mas=array[1..10,1..10] of string[80];
f=textfile;
var
s:mas;
ff:f;
n,i,j,u,k,m:integer;
d:string[80];
l:array[1..10] of string [80];
begin
repeat
writeln('Vvedite razmernost matrici');
readln(n);
until (n<=10) and (n>0);
writeln('Vvedite elementi matrici');
for i:=1 to n do
for j:=1 to n do readln(s[i,j]);
writeln('Vveli:');
for i:=1 to n do
begin
for j:=1 to n do
write(s[i,j]:14);
writeln;
end;
writeln;k:=0;
for i:=1 to n do
for j:=1 to n do
begin
d:=s[i,j];
m:=0;
for u:=1 to length(d) DO
if d[u] in ['1','2','3','4','5','6','7','8','9','0'] then m:=m+1;
if m<>0 then begin k:=k+1;
l[k]:=d;
end;end;
for u:=1 to k do write(l[u]);
assign(ff,'c:\f1.txt');
rewrite(ff);
For u:=1 to k do writeln(ff,l[u]);
close(ff);
reset(ff);
writeln('FILE:');
While not eof(ff) do begin
readln(ff,d);
writeln(d);
end;
close(ff);
writeln;
readln;
end.





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