Пожалуйсто решите задачу на Паскале ABC. Есть ли в матрице Y K, N столбец, в котором все элементы равны между собой?

Пожалуйсто решите задачу на Паскале ABC. Есть ли в матрице Y K,N столбец, в котором все элементы равны между собой?

  • const MAX_SIZE = 100; {максимальный размер строки и столбца матрицы}
    var ar: array[0..MAX_SIZE * MAX_SIZE - 1] of Integer;
    k, n: Integer; {размеры матрицы}
    i, j: Integer;
    wrong: Boolean;
    begin
    {ввод размера матрицы}
    WriteLn('Введите K');
    Read(k);
    WriteLn('Введите N');
    Read(n);

    {ввод матрицы}
    for i := 0 to k - 1 do {строки}
    for j := 0 to n - 1 do {столбцы}
    begin
    WriteLn('Введите [', i, ', ', j, '] элемент матрицы');
    Read(ar[i * n + j]);
    end;

    {вывод матрицы}
    WriteLn('Массив:');
    for i := 0 to k - 1 do {строки}
    begin
    for j := 0 to n - 1 do {столбцы}
    Write(ar[i * n + j], ' ');
    WriteLn();
    end;

    for j := 0 to n - 1 do {столбцы}
    begin
    wrong := false;
    for i := 1 to k - 1 do {строки}
    if ar[j] <> ar[i * n + j] then
    begin
    wrong := true;
    Break;
    end;
    if not wrong then WriteLn('В столбце ', j + 1, ' все элементы равны');
    end;
    end.