Найти самую длинную из строк и поместить эту стоку в файл - Pascal

Формулировка задачи:

Создать текстовый файл. Создать массив из 10 строк и заполнить его. Найти самую длиную из них и поместить эту стоку в файл

Код к задаче: «Найти самую длинную из строк и поместить эту стоку в файл - Pascal»

textual
for i:=1 to n do
        readln(f[i]);
      for i:=1 to n do
        write(f[i]:length(f[i]),' ');//для чего выводить строки, если они и так на экране?
      max:=length(f[1]);//для чего лишняя переменная?
      for i:=2 to n do
      if length(f[i])>max then
         begin
              max:=length(f[i]);
              imax:=i;

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ