Дана матрица В(5,5). Вычислить произведение элементов, стоящих выше главной
диагонали. Напечатать матрицу В и значение произведения.
написать код программы в паскале.
Ответы
Ответ дал:
0
var
i,j,pr:integer;
a: array[1..5,1..5] of integer;
begin
randomize;
pr:=1;
write('Исходный массив:');
for i:=1 to 5 do
begin
writeln;
for j:=1 to 5 do
begin
a[i,j]:=random(4)+1;
write(a[i,j]:2);
if i<j then pr:=pr*a[i,j]
end
end;
writeln;
writeln('Произведение ',pr)
end.
i,j,pr:integer;
a: array[1..5,1..5] of integer;
begin
randomize;
pr:=1;
write('Исходный массив:');
for i:=1 to 5 do
begin
writeln;
for j:=1 to 5 do
begin
a[i,j]:=random(4)+1;
write(a[i,j]:2);
if i<j then pr:=pr*a[i,j]
end
end;
writeln;
writeln('Произведение ',pr)
end.
Вас заинтересует
2 года назад
2 года назад
10 лет назад
10 лет назад
10 лет назад