Дан массив вещественных чисел. найти номера и значения всех отрицательных элементов массива. если таких элементов нет ,то должно буть напечатано соответствующее сообщение
ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПЕР массив: РЯД 100 ИЗ ВЕЩ; сч: ЦЕЛ; найдено: КЛЮЧ;
УКАЗ найдено := ОТКЛ; ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП ЕСЛИ массив[сч] < 0 ТО Вывод.ЧВещ("%g ", массив[сч], 0, 0, 0); ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН КОН КОН; ЕСЛИ НЕ найдено ТО Вывод.Цепь("Нету.") КОН
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
массив: РЯД 100 ИЗ ВЕЩ;
сч: ЦЕЛ;
найдено: КЛЮЧ;
УКАЗ
найдено := ОТКЛ;
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
ЕСЛИ массив[сч] < 0 ТО
Вывод.ЧВещ("%g ", массив[сч], 0, 0, 0);
ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
КОН
КОН;
ЕСЛИ НЕ найдено ТО Вывод.Цепь("Нету.") КОН
КОН Задание.