Question

Помогите с информатикой

Answer 1

не понятно)Нормально тусрмиснба?

Answer 2

var

   d : array[1..4,1..4] of integer;

   p : int64 := 1;

begin

   for var i := 1 to 4 do begin

       for var j := 1 to 4 do begin

           d[i,j] := random(-15, 10);

           if d[i,j] < 0 then p *= d[i,j];

       end;

   end;

   writeln('произведение всех отрицательных значений массива: ', p);

end.

тип int64 использовался по следующей причине:

у нас массив 4х4 то есть 16 элементов

допустим случилось страшное и все 16 элементов равны -15

это -15^16 (минус 15 в 16 степени) и это равно 6568408355712890625 что заметно превышает диапазон значений типа integer

и да, прочитать предложенное тобой имя массива я не осилил, поэтому назвал его просто d

Answer 3

прога заточена под PascalABC в других паскалях может не работать

Answer 4

Я чрезмерно тебе благодарен