В двумерном массиве заменить числом 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.

Объяснение кода листинга программы

  1. Объявляется двумерный массив ar типа Byte с размерностью Byte и ShortInt, а также переменные i, j, n и m типа Byte.
  2. Генерируется случайное число с помощью Randomize().
  3. Выполняется цикл с просьбой ввести значение переменной n.
  4. Выполняется цикл с просьбой ввести значение переменной m.
  5. Выводится сообщение Original array:.
  6. Выполняется цикл для заполнения массива ar случайными значениями в заданном диапазоне и вывода его элементов. Если значение элемента больше 5, оно заменяется на 5.
  7. Выводится сообщение Modified array:.
  8. Выполняется цикл для вывода измененного массива ar.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы