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