Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197100
15.11.2019, 10:26
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:Вычислить произведение положительных чисел, лежащих на главной диагонали и ниже ее. через процедуру в pascal

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
17.11.2019, 02:25
общий
это ответ
Здравствуйте, JonMoxley!

Смотрите код:
[code lang=pascal]const
n=10;
type
tMas=array[1..n,1..n]of integer;
procedure InputArray(var a:tMas);
var
b,c:integer;
begin
for b:=1 to n do
for c:=1 to n do
begin
write('enter A[',b:2,',',c:2,']:=');
readln(a[b,c]);
end;
end;
procedure ShowArray(a:tMas);
var
b,c:integer;
begin
for b:=1 to n do
begin
for c:=1 to n do
write(a[b,c]:3);
writeln;
end;
end;
procedure Special(a:tMas;var d:integer);
var
e,f:integer;
begin
d:=1;
for e:=1 to n do
for f:=1 to e do
d:=d*a[e,f];
end;
var
a:tMas;
m:integer;
begin
InputArray(a);
ShowArray(a);
Special(a,m);
writeln('result:=',m);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа