Найти индексы первого отрицательного и первого положительного элемента - Pascal

  1. Дана квадратная матрица размером М x М, найти индексы первого отрицательного и первого положительного элемента.

textual

Код:

type
  mas = array [1..100, 1..100] of integer;
 
var
  i, j, ipol, iotr, jpol, jotr, m: integer;
  a: mas;
 
begin
  randomize;
  writeln('Введите размер матрицы МхМ');
  readln(m);
  writeln('Исходная матрица:');
  for i := 1 to m
  do 
  begin
    for j := 1 to m
    do 
    begin
      A[i, j] := random(-100, 100);{формируем матрицу и выводим}
      write(' A[', i, ',', j, ']= ', A[i, j]:3);
    end;
    writeln;
  end;
  i := 1;
  j := 1;
  for i := 1 to m {первый положительный}
  do 
  begin
    for j := 1 to m
    do 
    begin
      if A[i, j] > 0
      then 
      begin
        ipol := i;
        jpol := j;
        break
      end;
    end;
    if ipol > 0
      then break
  end;
  writeln('Координаты первого положительного элемента: ', ipol, ' ', jpol);
   for i := 1 to m {первый отрицательный}
  do 
  begin
    for j := 1 to m
    do 
    begin
      if A[i, j] < 0
      then 
      begin
        iotr := i;
        jotr := j;
        break
      end;
    end;
    if iotr > 0
      then break
  end;
  writeln('Координаты первого отрицательного элемента: ', iotr, ' ', jotr);
end.

Похожие ответы
  1. Уважаемые форумчане, доброго дня! Необходимо определить значение и индексы первого элемента матрицы, значение которого равно сумме индексов. помогите решить пожалуйста! за время декрета мозги немного ослабли)))


Нашли ошибку?
Развитие проекта
Яндекс.Метрика