в произвольно заданном одномерном массиве определить местоположение первого и последнего из всех отрицательных элементов
Ответы
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(Readinteger('n='),-50,50); a.Println;
Writeln('1й отрицательный ',a.FindIndex(x->x<0)+1,
', последний ',a.FindLastIndex(x->x<0)+1)
end.
Пример
n= 13
16 34 45 -4 1 -14 -49 10 3 23 -7 17 23
1й отрицательный 4, последний 11
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(Readinteger('n='),-50,50); a.Println;
Writeln('1й отрицательный ',a.FindIndex(x->x<0)+1,
', последний ',a.FindLastIndex(x->x<0)+1)
end.
Пример
n= 13
16 34 45 -4 1 -14 -49 10 3 23 -7 17 23
1й отрицательный 4, последний 11
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
9 лет назад