Найти произведение строк где на главной диагонали отрицательное число
Answers & Comments
akhtem26ua
Var a:array[1..10]of array[1..10] of integer; i, j ,P: Integer; Begin randomize; writeln('Массив:'); for i := 1 to 10 do begin for j := 1 to 10 do begin a[i][j]:=random(21)-10; write(a[i][j]:5); end; writeln; end; for i := 1 to 10 do if a[i][i] < 0 then begin P:=1; for j := 1 to 10 do P:=P*a[i][j]; writeln(i,'-я строка, П=',P); end; writeln; End.
Answers & Comments
a:array[1..10]of array[1..10] of integer;
i, j ,P: Integer;
Begin
randomize;
writeln('Массив:');
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin a[i][j]:=random(21)-10;
write(a[i][j]:5);
end;
writeln;
end;
for i := 1 to 10 do
if a[i][i] < 0 then
begin P:=1;
for j := 1 to 10 do
P:=P*a[i][j];
writeln(i,'-я строка, П=',P);
end;
writeln;
End.