Задать вопрос Регистрация
Помочь другим

  • составить программу,которая определяет сколько раз встречается в таблице а максимальное по величине число.Pascal.Массивы.Помогите,пожалуйста

Ответы 1

  • const n=100;

    m=100;

    var A: array[1..n,1..m] of integer;

    i,j,maxi,maxj,k: integer;

    begin

    randomize;

    for i := 1 to n do begin

        for j := 1 to m do begin

            A[i,j] := random(100);

        end;

    end;

    maxi := 1;

    maxj := 1;

    for i := 1 to n do begin

        for j := 1 to m do begin

            if (A[i,j] > A[maxi,maxj]) then begin

                maxi := i;

                maxj := j;

            end;

        end;

    end;

    k := 0;

    for i := 1 to n do begin

        for j := 1 to m do begin

            if (A[i,j] == A[maxi,maxj]) then k := k + 1;

        end;

    end;

    writeln('k = ', k);

    end.

    • Автор:

      janiyah
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years