В двумерном массиве заменить числом 5 значения всех элементов, превышающих значение 5 - Pascal
Формулировка задачи:
2)В двумерном массиве заменить числом 5 значения всех элементов, превышающих значение 5.
Решение задачи: «В двумерном массиве заменить числом 5 значения всех элементов, превышающих значение 5»
textual
Листинг программы
{$MODE TP} var ar: Array[Byte, Byte] Of ShortInt; i, j, n, m: Byte; begin Randomize(); repeat Write('Input n='); ReadLn(n); until (n > 0); repeat Write('Input m='); ReadLn(m); until (m > 0); WriteLn('Original array:'); 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); if (ar[i, j] > 5) then ar[i, j] := 5; end; WriteLn; end; WriteLn('Modified array:'); for i := 0 to n - 1 do begin for j := 0 to m - 1 do Write(ar[i, j]:4); WriteLn; end; end.
Объяснение кода листинга программы
- Объявляется двумерный массив ar типа Byte с размерностью Byte и ShortInt, а также переменные i, j, n и m типа Byte.
- Генерируется случайное число с помощью Randomize().
- Выполняется цикл с просьбой ввести значение переменной n.
- Выполняется цикл с просьбой ввести значение переменной m.
- Выводится сообщение
Original array:
. - Выполняется цикл для заполнения массива ar случайными значениями в заданном диапазоне и вывода его элементов. Если значение элемента больше 5, оно заменяется на 5.
- Выводится сообщение
Modified array:
. - Выполняется цикл для вывода измененного массива ar.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д