Program abra;
Var
X : Array [1..20, 1..20] Of
real;
N : Integer;
P : Real;
i, j: Integer;
begin
WriteLn ('Вычисление произведения ');
Write ('Введите размерность: N = ');
ReadLn (N);
WriteLn ('Введите элементы массива:');
For i := 1 To N Do
For j := 1 To N Do
Begin
Write ('X[', i, ',', j, '] = ');
ReadLn (X [i, j] );
End;
P := 1;
For i := 1 To N Do
For j := 1 To N Do
P := P * X [i, j];
if (X [i,j])=0 then writeln('присутствуют нулевые элементы') else
WriteLn ('Произведение: P = ',p: 6: 1);
readln;
end.
Объяснение:
Опера «Риголетто» написана по мотивам пьесы В. Гюго «Король забавляется». В основе драмы были реальные действующие герои, только перенесенные в оригинальные сюжетные коллизии. После первой же премьеры пьеса была строго запрещена цензурой, как подрывающая авторитет короля. Лишь после падения режима Наполеона III, через 50 лет после первой постановки, драма вновь предстала перед публикой. В России в те времена постановок и вовсе не было, по этическим соображениям. Эта опера показывает истинную и чистую любовь, которая вынуждает молодую девушку пожертвовать собой ради любимого. Кроме того в ней есть измены, предательство, наемный убийца, мистика и глубокая боль отца, потерявшего свою единственную дочь, но вынужденного оставаться в своей маске шута.
Объяснение:
