ponkas

programa imeciau kaip pawyzduka,gal ja siek tiek pakoregavus,programa darytu tij ko man reikia:) buciau lb dekingas jei kas padetu :(

As ten nesigaudau toje uzduotyje.. Pabandziau bet blogaij ten yra... su masyvu as is wis zalias... nujauciu,kad cia kazkas panasaus,bet kazka reikia dar pakoreguoti,kad programa darytu tij ko man reikia pagal uzduoti:>

program trumpiausia;

var prad: text;

s, trump: string;

min: integer;

begin

assign(prad, 'failas.txt');

reset(prad);

readln(prad, s);

min := length(s);

trump := s;

while(not eoln(prad)) do

begin

readln(prad, s);

if (length(s) < min) then trump := s;

end;

close(prad);

writeln('Trumpiasia eilutė: ', trump);

writeln('Joje yra simbolių: ', min);

Readln;

end.

Butu geriausia,kad parasytumete :)

Kaip man ta reikalinga uzduoti padaryti.. ;)

Prasau pagalbos padarant viena uzduoti,niekaip man nesiseka ja igyvendinti.Jei kas pades busiu lb dekingas:)

Duotas tekstinis failas(raides ir skaitmenys).Rastas raides surasyti alfabeto tvarka i kita faila.