Регистрация
danyabro1
14.12.2022 00:37
Информатика
Есть ответ 👍

Дан двухмерный массив найдите произведение элементов диагонали , произведение всех элементов массива , а также минимальный элемент массива
В паскале

223
387
Посмотреть ответы 2

Ответы на вопрос:

ЕлИзАвЕтКа0915
ЕлИзАвЕтКа0915
4,6(8 оценок)

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.

Объяснение:

strelecky
strelecky
4,6(21 оценок)

{121 \times 808}{2222} = 44

2222

121×808

=44

через 44 сек

Популярно: Информатика