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

Question

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

Answer 1

46

ivanov_sany

19 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: