Як при заповненні таблиці перейти від клітинки до клітинки?

Program q;
    var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real;
begin;
    randomize;
    for i:=1 to 7 do begin;
        for k:=1 to 7 do begin;
            a[i,k]:=random(-10,10);
            if a[i,k] mod 2 = 1 then odd+=1;
        end;
    end;
    min7:=a[1,7];
    for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7];
    for i:=1 to 7 do sum1+=a[i,1];
    for i:=1 to 7 do avg5+=a[5,i];
    avg5/=7;
    for i:=1 to 7 do a[1,i]:=1;
    write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd);
end.

В данной программе используется цикл с известным числом повторений

Объяснение:

Вот код этой программы:

uses DrawMan; //подключаем модуль с чертежником  

var   i: integer; //объявляем переменную-счетчик для цикла

begin

 Task('c1'); //вызываем задание

 ToPoint(1, 3); //перемещаемся к точке с координатами (1, 3)

 for i := 1 to 18 do //запускаем цикл

   begin

     PenDown; //опускаем перо

     OnVector(0, -1); //перемещаемся на вектор (0, -1)

     OnVector(1, 1); //перемещаемся на вектор (1, 1)

   end;

 PenUp; //поднимаем перо

 ToPoint(0, 0); //перемещаемся к точке с координатами (0, 0)

end.

Циклы в "Паскале" - это алгоритм действий который выполняется определенное количество раз. Здесь используется цикл "for", для использования которого необходимо указать число итераций цикла.

Переменная i изменяется от 1 до 18, => вложенный в цикл код выполнится (18-1)+1 = 18 раз