Паскаль АБС: По элементам случайной матрицы создать одномерный массив с характеристикой строк матрицы

[zhagalchin]

Ребят, помогите пожалуйста.

Матрицу R(8, 7) заполнить целыми случайными числами в диапазоне от -108 до 104. Построить строку-маску М(8) таким образом, что М(I) = 0, если количество положительных элементов в первой строке матрицы R больше, чем количество отрицательных, и М(I) = 1 в противоположном случае. Матрицу R и строку М вывести.

[Serge_Bliznykov]

да, простенькая задача.
А что у Вас не получается? Не знаете, как матрицу R объявить? Или как её заполнить целыми случайными числами из заданного диапазона?
или как подсчитать в строке матрицы количество положительных и отрицательных чисел? Или как сравнить эти два значения и, если первое больше второго, записать в строку M ноль, иначе записать в строку М единицу.

[newerow1989]

var r:array[1..8,1..7] of integer;
    m:array[1..8] of byte;
    i,j,c_pol,c_otr:integer;
begin
   Randomize;
   For i:=1 to 8 do
   begin
      For j:=1 to 7 do
      begin
         r[i,j]:=-108+Random(213);
         Write(r[i,j],' ');
      end;
      Writeln('');
   end;
   Writeln('');
   For i:=1 to 8 do
   begin
      c_pol:=0;
      c_otr:=0;
      For j:=1 to 7 do
         If r[i,j]>=0 then
            c_pol:=c_pol+1 else
            c_otr:=c_otr+1;
      If c_pol>c_otr then
         m[i]:=0 else
         m[i]:=1;
      Write(m[i],' ');
   end;
   Readln;
end.

Сойдет?

[zhagalchin]

Сообщение от newerow1989

var r:array[1..8,1..7] of integer;
    m:array[1..8] of byte;
    i,j,c_pol,c_otr:integer;
begin
   Randomize;
   For i:=1 to 8 do
   begin
      For j:=1 to 7 do
      begin
         r[i,j]:=-108+Random(213);
         Write(r[i,j],' ');
      end;
      Writeln('');
   end;
   Writeln('');
   For i:=1 to 8 do
   begin
      c_pol:=0;
      c_otr:=0;
      For j:=1 to 7 do
         If r[i,j]>=0 then
            c_pol:=c_pol+1 else
            c_otr:=c_otr+1;
      If c_pol>c_otr then
         m[i]:=0 else
         m[i]:=1;
      Write(m[i],' ');
   end;
   Readln;
end.

Сойдет?

спасибо большое!

[Stilet]

Строку в студию.

[zhagalchin]

Сообщение от newerow1989

var r:array[1..8,1..7] of integer;
    m:array[1..8] of byte;
    i,j,c_pol,c_otr:integer;
begin
   Randomize;
   For i:=1 to 8 do
   begin
      For j:=1 to 7 do
      begin
         r[i,j]:=-108+Random(213);
         Write(r[i,j],' ');
      end;
      Writeln('');
   end;
   Writeln('');
   For i:=1 to 8 do
   begin
      c_pol:=0;
      c_otr:=0;
      For j:=1 to 7 do
         If r[i,j]>=0 then
            c_pol:=c_pol+1 else
            c_otr:=c_otr+1;
      If c_pol>c_otr then
         m[i]:=0 else
         m[i]:=1;
      Write(m[i],' ');
   end;
   Readln;
end.

Сойдет?

можно вопрос, почему рандом до 213? и в матрице в основном одни отрицательные числа если поставить рандом до 104?

[Serge_Bliznykov]

можно вопрос, почему рандом до 213?

чтобы получать случайные числа в диапазоне [-108..104] (обе границы включительно)

и в матрице в основном одни отрицательные числа если поставить рандом до 104?

не в основном, а ТОЛЬКО ОДНИ ОТРИЦАТЕЛЬНЫЕ!

потому что, если написать:

-108+Random(104);

то диапазон возможных значений выражения будет от [-108 .. -5]