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

  • Написать программу для Паскаля :найдите наименьший элемент квадратной таблицы и замените его нулем

Ответы 1

  • var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

    begin for i := 1 to 5 do begin for j := 1 to 5 do begin a[i, j] := random(100) + 1; write(a[i, j]:4); end; writeln; end; min := 999; for i := 1 to 5 do for j := 1 to 5 do if min > a[i, j] then begin min := a[i, j]; min_i := i; min_j := j; end; a[min_i, min_j] := 0; writeln('Массив с замененным минимальным элементом'); for i := 1 to 5 do begin for j := 1 to 5 do write(a[i, j]:4); writeln; end; end.

    • Автор:

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

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

Еще вопросы

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

Войти через Google

 или

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

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

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