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.
Объяснение:
Костюмы можно добавить с кнопок "Выбрать костюм из библиотеки","Нарисовать новый костюм", "Добавить из файла" и "дублировать". При нажатии первой кнопки появится окно с разнообразными картинками, которые можно использовать не нарушая авторского права. Вторая кнопка создаст пустой костюм, можете рисовать с нуля или так и оставить. Третья откроет окно выбора файла, и вы можете добавить готовые картинки с вашего компьютера. При выборе gif-файла будут последовательно загружены все кадры. Последняя кнопка появляется при нажатии правой кнопкой мыши по любому костюму и копирует его.
Объяснение:
инфа с офиц сайта