| ← Октябрь 2018 → | ||||||
|
1
|
2
|
3
|
4
|
|||
|
8
|
9
|
10
|
11
|
12
|
13
|
14
|
|
15
|
16
|
17
|
18
|
19
|
20
|
21
|
|
22
|
23
|
25
|
26
|
27
|
28
|
|
|
29
|
30
|
31
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Дана целочисленная матрица {Aij}i=1,...,n;j=1,...,m (n,m<=20). Найти сумму произведений элементов столбцов.
Дата отправки: 02.10.2018, 22:45 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, fan557! Код (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.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
