Напишите программу, которая заполняет с клавиатуры массив а(3, 3) словами разного размера и заменяет самое короткое слово главной диагонали на максимальное по длине слово всего массива. выведите на экран исходный и полученный массивы.

Pascalabc.net const      n = 3;         var    a : array [1..n,1..n] of string;     smax : string;     i,j,lmin,lmax,km : integer;       begin  lmax : = 0;   smax : = '';       for i : = 1 to n do    for j : = 1 to n do    begin      readln (a[i,j]);       if length (a[i,j]) > lmax then        begin        smax : = a[i,j];         lmax : = length (a[i,j]);         end;             end;       lmin : = length (a[1,1]);   km : = 1;   for i : = 2 to n do    if length (a[i,i]) < lmin then    begin      lmin : = length (a[i,i]);       km : = i;     end;           writeln ();   for i : = 1 to n do    begin    for j : = 1 to n do      write (a[i,j],' ');     writeln ();     end;   writeln ();         for i : = 1 to n do    begin    for j : = 1 to n do      if (i = km) and (j = km) then      write (smax,' ')      else      write (a[i,j],' ');     writeln ();     end;       end.

Еда                                     напитки               всего бутер                                             кофе                     2 пряник плюшка                                                                         4                                             сок                           2         кекс

оператор цикла с параметром используется в тех случаях, когда некоторое однообразное действие надо повторить определенное количество раз. особенно, если это количество достаточно велико. бывают же такие , когда необходимо, например, вычислить сумму каких-либо величин, каждая из которых вычисляется по формуле. ведь если непосредственно вычислять сумму 1 + 2 + 3 + + 1000, то программа разрастется до невообразимых масштабов.

оператор цикла с параметром в народе ещё называют "оператор for", и в pascal он бывает двух типов (второй тип смотрите ниже). первый записывается так:

for i : = n1 to n2 do

всё, что находится между for и do, называется заголовком цикла, после do – телом цикла. переменная i зазывается параметром цикла и имеет порядковый тип (целые числа, логический тип, символы, перечислимый и диапазонный тип). слова for, to и do – это служебные слова pascal, которые использовать в своих программах для обозначения переменных нельзя. индекс i, которым обозначаются номера действий в операторе цикла, изменяется от меньшего n1 к большему n2 (n1 ≤ n2). первый номер n1 по значению не должен превышать второй n2, иначе цикл не запустится.