program exam12;

{$APPTYPE CONSOLE}

uses
SysUtils;

type sss=string[80];
mas=array [1..30] of sss;
var
group,b:mas;
p,minslovo,maxslovo,h,s:sss;
ff:file of sss;
n,i,j,m,u:integer;
begin
writeln('Vvedite kol-vo studentov:');
readln(n);
writeln('Vvedite phamilii studentov:');
For i:=1 to n do
readln(group[i]);
writeln('***************');
writeln('Spisok studentov:');

For i:=1 to n do writeln(group[i]);
writeln;
maxslovo:=group[1];
minslovo:=group[1];
length(maxslovo):=length(group[1]);
length(minslovo):=length(group[1]);
for i:=1 to n do begin
if length(group[i])length(minslovo):=length(group[i]);
minslovo:=group[i];
end;
if length(group[i])>length(maxslovo) then begin
length(maxslovo):=length(group[i]);
maxslovo:=group[i];
end;
end;
writeln('Samoe kopotkaja familiya:',minslovo);
writeln;
writeln;
writeln('Samaya dlinnaya familiya:',maxslovo);
assign(ff,'c:\fil1.dat');
rewrite(ff);
write(ff,minslovo,maxslovo);
close(ff);
reset(ff);
writeln('FILE:');
While not eof(ff) do begin
read(ff,maxslovo,minslovo);
write(minslovo,' ',maxslovo);end;
writeln;
close(ff);
writeln;
readln
end.

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

Файл
Readme.txt
Readme.txt
1.TXT
Cиловой.txt
MENEG.TXT




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