LockeD [Off] [#] (29.01.2012 / 13:49) ████████████ - сотри и прочитай мой статус

А k = 0; для і від 1 до n початок циклу якщо Т[і] > 0 то k = і; кінець циклу;
Б k = 0; для і від n до 1 крок -1 початок циклу якщо Т[і] > 0 то k = і; кінець циклу;
В k = 0; і = 1; поки (k = 0) and (і ≤ n) початок циклу якщо Т[і] > 0 то k = і інакше і = і + 1; кінець циклу;

Г і = 1; поки і ≤ n початок циклу якщо Т[і] > 0 то і = n + i інакше і = і + 1; кінець циклу; k = і - n;
Д FL = 0; k = 0; поки (FL = 0) and (k < n) початок циклу k = k + 1; якщо Т[k] > 0 то FL = 1; кінець циклу;