Найти произведение элементов двумерного массива, меньших заданного числа Т - 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.
Объяснение кода листинга программы
- Объявлены переменные: — arr: двумерный массив типа Array Of Array Of ShortInt; — i, j, n, m: Byte; — t: ShortInt; — mult: Extended;
- Задаются значения переменным t и mult;
- В цикле повторяется запрос на ввод значений для переменных n и m, пока они не будут больше нуля;
- Задается значение переменной t;
- Создается двумерный массив arr заданного размера n на m;
- Переменная mult инициализируется единицей;
- Внутренними циклами заполняется массив arr случайными числами от 0 до 40, при этом если число меньше заданного значения t, то оно умножается на mult;
- Выводятся значения массива arr;
- Выводится значение переменной mult.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д