Предмет: Информатика,
автор: GENTLEMAN11
В двумерном массиве найти произведение всех отрицательных элементов
Ответы
Автор ответа:
0
Var a :array [1..20, 1..20] of real;
n,i,j: Integer;
p:real;
begin
Write ('Введите размерность: n = ');
ReadLn (N);
WriteLn ('Введите элементы массива:');
for i := 1 to n do
for j := 1 to n do
Begin
Write ('a[', i,',', j,'] = ');
ReadLn (a[i, j]);
End;
p:= 1;
for i := 1 to n do
for j := 1 to n do
if (a[i,j])<0 then p:=p*a[i,j];
WriteLn ('Произведение всех отр. чисел: ',p: 6: 1);
end.
Автор ответа:
0
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: География,
автор: raximganovrinat2008
Предмет: Қазақ тiлi,
автор: sahievichmedet
Предмет: Математика,
автор: йысцвмфякаимерлжпнро
Предмет: Математика,
автор: marisha341