Найти произведение минимального элемента матрицы вещественных чисел на сумму ее положительных элементов.
a - матрица размерностью N на M;
min - ее минимальный элемент;
sum - сумма ее положительных элементов;
i, j - счетчики.
const N = 5; M = 10; MAX = 10.0; var a: array[1..N,1..M] of real; min, sum: real; i, j: byte; begin randomize; min := MAX/2; sum := 0; for i:=1 to N do begin for j:=1 to M do begin a[i,j] := (random() * MAX) - MAX/2; write(a[i,j]:6:2); if a[i,j] > 0 then sum := sum + a[i,j]; if a[i,j] then min := a[i,j]; end; writeln; end; writeln(min:10:2,' - минимальный элемент'); writeln(sum:10:2,' - сумма положительных элементов'); writeln(min*sum:10:2,' - произведение минимального на сумму'); end.
Пример выполнения:
-2.12 -0.63 4.86 -2.48 -4.94 3.45 3.27 3.34 4.63 0.59
-0.91 2.24 -2.28 2.93 4.53 -3.89 -1.99 3.65 0.13 0.37
1.60 -2.71 2.05 0.78 0.14 -2.36 -2.89 1.86 1.14 2.12
-3.10 1.26 -1.55 3.26 4.66 0.08 -1.60 -1.61 3.09 -2.32
0.01 -2.88 -3.09 -3.21 -1.05 2.54 4.79 1.21 -2.88 -1.99
-4.94 - минимальный элемент
64.59 - сумма положительных элементов
-318.79 - произведение минимального на сумму
Последние комментарии
1 день 9 часов назад
3 дня 21 час назад
4 дня 20 часов назад
4 дня 23 часа назад
1 неделя 9 часов назад
1 неделя 14 часов назад
1 неделя 4 дня назад
2 недели 14 часов назад
2 недели 21 час назад
2 недели 1 день назад