Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 193643
02.10.2018, 22:45
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Дана целочисленная матрица {Aij}i=1,...,n;j=1,...,m (n,m<=20). Найти сумму произведений элементов столбцов.

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
03.10.2018, 21:04
общий
это ответ
Здравствуйте, fan557!

Смотрите код:
[code lang=pascal]const
n=3;
m=6;
var
a:array[1..n,1..m]of integer;
b,c:integer;
begin
for var i:integer:=1 to n do
begin
for var j:integer:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:7);
end;
writeln;
end;
c:=0;
writeln('умножаем');
for var j:integer:=1 to m do
begin
b:=1;
for i:integer:=1 to n do b:=b*a[i,j];
write(b:7);
c:=c+b;
end;
writeln;
writeln('сумма:=',c);
end.[/code]
Удачи!
5
Спасибо большое)
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа