Упорядочить данную последовательность по убыванию. Массив задан датчиком случайных чисел на интервале [-54, 33]. Размер произвольный

158

353

Посмотреть ответы 1

Ответы на вопрос:

аличка77

Информатика

4,4(15 оценок)

Var f: text; s: string; max: string : = ''; begin //в папке с программой должен быть файл "input.txt" if fileexists('input.txt') then begin assign(f, 'input.txt'); reset(f); while not eof(f) do begin readln(f, s); if length(s) > length(max) then max : = s; end; writeln('самая длинная строка в файле: '); writeln(max); close(f); end else writeln('файл не найден'); end.