profile
Опубликовано 6 лет назад по предмету Информатика от Maxero

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

  1. Ответ
    Ответ дан Araikabyl004

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

  2. Ответ
    Ответ дан ingr

    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

    1. Ответ
      Ответ дан ingr
      прога заточена под PascalABC в других паскалях может не работать
    2. Ответ
      Ответ дан Maxero
      Я чрезмерно тебе благодарен
Самые новые вопросы