Question

Помогите пожалуйста решить!!!! На Pascal

Answer 1

алгоритм

МассивЧисел = "1,2,3,4-5,-2,10"

счОтрицательных =2

Индекс = 0;

пока счОтрицательных<>0 Выполнять

 

Если МассивЧисел[Индекс] < 0 Тогда

 счОтрицательных = счОтрицательных -1;

КонецЕсли  

Индекс = Индекс+1;

КонецЦикла

Вывести("Номер по порядку: "+ Индекс + "  значение: "+ Массив[Индекс-1])

Answer 2

Это не язык Pascal