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 eilu
