Дан массив вещественных чисел. найти номера и значения всех отрицательных элементов...

Question

Дан массив вещественных чисел. найти номера и значения всех отрицательных элементов массива. если таких элементов нет ,то должно буть напечатано соответствующее сообщение

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
  массив: РЯД 100 ИЗ ВЕЩ;
  сч: ЦЕЛ;
  найдено: КЛЮЧ;

УКАЗ
  найдено := ОТКЛ;
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] < 0 ТО
      Вывод.ЧВещ("%g ", массив[сч], 0, 0, 0);
      ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
    КОН
  КОН;
  ЕСЛИ НЕ найдено ТО Вывод.Цепь("Нету.") КОН

КОН Задание.