Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Светлана Слонь
0 / 0 / 1
Регистрация: 21.11.2015
Сообщений: 209
#1

Найти произведение сумм столбцов матрицы

24.12.2015, 00:30. Просмотров 129. Ответов 0
Метки нет (Все метки)

Подскажите пожалуйста, что нужно вписать программу, чтобы выводило ПРОИЗВЕДЕНИЕ сумм столбцов
вот программа, которая вычисляет сумму положительных элементов столбца
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
program hhhhhhh;
uses crt;
const mx = 20;
var a: array [1..mx, 1..mx] of integer;
i, r, j, c: integer;
p: double;
s:real;
found: boolean;
begin
randomize;
write('Введите кол-во строк (1..', mx, '): ');
readln(r);
writeln;
if (r<1) or (r> mx) then
writeln(' не верно введены данные!!!')
else
write('Введите кол-во столбцов (1..', mx, '): ');
readln(c);
if (c<1) or (c> mx) then 
writeln(' не верно введены данные!!!')
else
writeln;
writeln(' Исходная матрица:');
writeln;
for i := 1 to r do
begin
for j := 1 to c do
begin
a[i, j] := -99 + random(199);
write(a[i, j]:4)
end;
writeln;
end;
writeln;
writeln;
writeln(' Сумма положительных элементов столбцов матрицы:');
writeln;
writeln;
for j := 1 to c do
begin
s:=1;
p := 0;
found := false;
writeln;
write('В ',j:2, ' столбце: ');
for i := 1 to r do
if (a[i, j] > 0)then 
begin
p := p + a[i, j];
 
 
found := true
end;
if found
then writeln(p:0:0)
else writeln('Положительные элементы не найдены!!!');
 
 
end;
 
end.
Как мне посчитать произведение сумм????
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2015, 00:30
Ответы с готовыми решениями:

Отсортировать номера столбцов матрицы по убыванию сумм элементов столбцов
Дана квадратная матрица размером n x n, содержащая вещественные числа....

Найти сумму наибольших значений строк и произведение наименьших значений столбцов матрицы
Дана действительная матрица размера MxN. Найти сумму наибольших значений...

Найти произведение всех отрицательных элементов каждого из столбцов квадратной матрицы, состоящей из элементов
Помогите сделать! Очень надо!

Найти сумму наибольших значений элементов строк матрицы, а также произведение наименьших элементов её столбцов
Помогите, пожалуйста. Буду очень признательна. Дана действительная матрица...

Найти произведение сумм вещественных чисел.
Дано двумерный массив вещественных чисел. Найти произведение сумм всех строк.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2015, 00:30

Дана матрица размера 4x7. Найти минимальное значение среди сумм элементов всех ее столбцов
Не совсем понимаю как решить

Получить скалярное произведение соответствующих строк и столбцов матрицы
Дана квадратная матрица X(4х4). Получить скалярное произведение...

Найти суммы заданных элементов массива и вычислить произведение этих сумм
дан массив элементов А. Найти суммы элементов с 1 до 5, с 6 до 10, с 11 до 15 и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru