Question

Дана вещественная матрица размерности n*m. Вывести номера строк, содержащих больше положительных элементов чем отрицательных. Решите пожалуйста на языке Pacal

Answer 1

Program strok;
uses crt;
const
m=3;
n=4;
var i,j,pos,neg: integer;
a:array[1..n, 1..m] of real;
begin   
 for i:=1 to n do     
   for j:=1 to m do
read(a[i,j]);
for i:= 1 to n do begin   
neg:= 0; 
  pos:= 0;   
for j:= 1 to m do begin   
  if a[i,j] < 0 then Inc(neg)     
 else Inc(pos);   
 end; 
   if pos > neg then
Write(IntToStr(i),' '); 
 end; 
 ReadLn;
end.

Answer 2

Для решения данной задачи на языке Pascal, можно использовать следующий алгоритм:

1. Объявить переменные n, m - размерности матрицы, инициализировать их значения. 2. Объявить двумерный массив a[n, m] - матрицу. 3. Объявить переменные i, j, count_pos, count_neg - переменные для циклов и подсчета положительных и отрицательных элементов в строках. 4. Пройти по каждой строке матрицы и подсчитать количество положительных и отрицательных элементов. 5. Если количество положительных элементов больше, чем количество отрицательных, вывести номер строки. 6. Повторить шаги 4-5 для всех строк матрицы.

Пример реализации на языке Pascal:

program positiveNegativeElements;
const
  n = 3; // количество строк
  m = 4; // количество столбцов
var
  a: array[1..n, 1..m] of real; // объявление матрицы
  i, j, count_pos, count_neg: integer;
begin
  // ввод элементов матрицы
  for i := 1 to n do
    for j := 1 to m do
      readln(a[i, j]);

// проверка количества положительных и отрицательных элементов в каждой строке
  for i := 1 to n do
  begin
    count_pos := 0;
    count_neg := 0;
    for j := 1 to m do
    begin
      if a[i, j] > 0 then
        count_pos := count_pos + 1
      else if a[i, j] < 0 then
        count_neg := count_neg + 1;
    end;
    // если количество положительных элементов больше, чем отрицательных, выводим номер строки
    if count_pos > count_neg then
      writeln('Строка ', i, ' содержит больше положительных элементов, чем отрицательных');
  end;
end.

Этот код позволит вывести номера строк, содержащих больше положительных элементов, чем отрицательных, для вещественной матрицы размерности n*m.