Дан целочисленный двумерный массив, размерности n х m. Найти количество отрицательных элементов, больше -9.​

vоасуоаааарараараарарараарааарарар

Объяснение:

В подмосковной Лобне вместе с матерью живёт двадцатилетний Илья Горюнов. Илья — студент филологического факультета МГУ; мать Ильи, воспитавшая сына одна, учительница русского языка и литературы. Отмечая окончание сессии, действуя наперекор матери, Илья отправляется со своей девушкой Верой в московский клуб «Рай». Неожиданно в клуб врывается наркополиция ФСКН с рейдом: у Ильи и Веры наркотиков не было, но Веру всё равно задерживает сотрудник в штатском Пётр Хазин. Илья пытается воспрепятствовать задержанию Веры и оскорбляет задержавшего её Хазина: в отместку молодой офицер подбрасывает ему кокаин. В итоге Илью сажают в колонию на семь лет за якобы сбыт наркотиков. В 2019 году, отбыв весь срок, Илья возвращается в Лобню к матери, однако узнаёт, что она умерла от сердечного приступа за день до его возвращения. Он приезжает к бывшей девушке Вере, из-за которой оказался в тюрьме, но она отказывается с ним разговаривать; также Илья общается с бывшим лучшим другом Серёгой, но и с ним он чувствует отчуждение.

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.

массив данных о стоимости товаров зададим в виде целочисленных констант

program primer_1; const a: array[1..12] of integer = (170, 180, 25, 36, 750, 1, 45, 28, 39, 10, 11, 58);   i,min,k: integer;   begin

min: =a[1];  

for i: =2 to 12 do     if a[i]< min then

                                              begin 

                                              min: =a[i];                                               k: =i; write('минимальная стоимость ', min, '   индекс' ,k) end.

или скорее всего этот вариант

program primer_1; var a: array[1..12] of integer; i, min, k: integer; beginfor i: =1 to 12 do read(a[i]); {ввод стоимостей товаров}min: =a[1]; k: =0; for i: =2 to 12 do if a[i]< min then begin min: =a[i]; k: =i; end; write('мин. сто-мость ', min, ' индекс ' ,k)end.