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

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


textual

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

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.

СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 4.000 из 5



Похожие ответы
  1. Привет! Помогите, пожалуйста, решить задачу: Дана действительная матрица X размера 6Х9. Найти матрицу Y, получающуюся из данной перестановкой столбцов – первого с последним, второго с предпоследним и т. д. Не получается решить, в итоге выдаёт одни лишь нули...

  1. 1.1. Дан линейный массив целых чисел. Удалить из массива все элементы, равные значению первого элемента массива. Сам первый элемент не удалять. 1.2. Дана матрица размера M на N. В каждом ее столбце найти количество элементов, больших среднего арифметического всех элементов этого столбца.Добавлено через 28 минут Кирюша Пархом постарался и сделал сам) 1.2

  1. Отсортировать массив x с n элементов в порядке убывания и найти разницу первого и последнего элементов массива.

  1. найти максимальный элемент из числа оканчивающиеся на 3 среди элементов последовательности вводимой с клавиатуры до первого 0

  1. Дан текст, слова которого отделяются друг от друга одним или несколькими пробелами. Удалить лишние пробелы, если последняя буква первого слова совпадает с первой буквой последнего слова. Распечатать исходный тест, первое и последнее слова, полученный текст.

  1. народ, помогите с присваиванием значений одного массива другому и правильного вывода . вот условие: Дан линейный массив, содержащий N целых чисел. Выделить те элементы этого массива в массив B, индексы которых являются делителями числа C. Замечание Считается, что первый элемент массива имеет индекс 1ввод из файла с=3 , n=10 , Массив= 11 21 31 45 61 74 98 48 64 6 вывод 31 74 64 [/B] Замечание: При выводе в файл 0-й нету , при выводе на экран они есть. Буду благодарен за помощть

  1. дан одномерный массив, напечатать индексы элементов, значения которых не входят в заданный диапазон

  1. В заданном векторе (одномерном массиве) найти: разность первого положительного и последнего отрицательного элемента

  1. Найти наибольшее произведение двух элементов массива, указав их индексы.