Найти номер первого из столбцов матрицы, не содержащих элементов, меньших s - Turbo Pascal

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

Найти номер первого из столбцов, не содержащих элементов, меньших s. (матрица)

Код к задаче: «Найти номер первого из столбцов матрицы, не содержащих элементов, меньших s - Turbo Pascal»

textual
var
    ar: Array[Byte, Byte] Of ShortInt;
    i, j: Byte;
    n, m, s: Integer;
    flag: Boolean;
begin
    repeat
        Write('Введите количество строк (1..256): ');
        ReadLn(n);
    until ((n > 0) And (n <= 256));
    repeat
        Write('Введите количество столбцов (1..256): ');
        ReadLn(m);
    until ((m > 0) And (m <= 256));
    Randomize;
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
        end;
        WriteLn;
    end;
    Write('Введите число s: '); ReadLn(s);
    j := 0;
    repeat
        i := 0;
        repeat
            flag := (ar[i, j] >= s);
            Inc(i);
        until ((i >= n) Or (Not flag));
        Inc(j);
    until ((j >= m) Or flag);
    if (flag)
    then
        WriteLn('Ответ: столбец №', j)
    else
        WriteLn('Все столбцы содержать элементы, меньшие ', s);
end.

10   голосов, оценка 3.900 из 5


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