Найти произведение элементов двумерного массива, меньших заданного числа Т - Free Pascal

Узнай цену своей работы

Формулировка задачи:

10) Двумерный массив: Найти произведение элементов двумерного массива, меньших заданного числа Т

Решение задачи: «Найти произведение элементов двумерного массива, меньших заданного числа Т»

textual
Листинг программы
var
    arr: Array Of Array Of ShortInt;
    i, j, n, m: Byte;
    t: ShortInt;
    mult: Extended;
begin
    Randomize;
    repeat
        Write('n='); ReadLn(n);
    until (n > 0);
    repeat
        Write('m='); ReadLn(m);
    until (m > 0);
    Write('t='); ReadLn(t);
    SetLength(arr, n, m);
    mult := 1;
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
        begin
            arr[i, j] := Random(41) - 20;
            Write(arr[i, j]:4);
            if (arr[i, j] < t)
            then
                mult := mult * arr[i, j];
        end;
        WriteLn;
    end;
    WriteLn; WriteLn('mult=', mult:0:0);
end.

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

  1. Объявлены переменные: — arr: двумерный массив типа Array Of Array Of ShortInt; — i, j, n, m: Byte; — t: ShortInt; — mult: Extended;
  2. Задаются значения переменным t и mult;
  3. В цикле повторяется запрос на ввод значений для переменных n и m, пока они не будут больше нуля;
  4. Задается значение переменной t;
  5. Создается двумерный массив arr заданного размера n на m;
  6. Переменная mult инициализируется единицей;
  7. Внутренними циклами заполняется массив arr случайными числами от 0 до 40, при этом если число меньше заданного значения t, то оно умножается на mult;
  8. Выводятся значения массива arr;
  9. Выводится значение переменной mult.

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


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

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

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