задан одномерный числовой массив.напишите программу которая находит второй по величене после максимльного элемент и его номер . решение паскаль
Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var s:=a.Distinct.OrderBy(x->x).Reverse.Skip(1);
if s.Count>0 then begin
var i:=a.FindIndex(t->t=s.First);
Writeln('Искомый элемент равен ',a[i],' его порядковый номер ',i+1)
end
else Writeln('Нет искомых элементов')
end.
Пример
n= 13
-7 -2 -32 9 21 -31 34 -34 27 -35 11 7 -10
Искомый элемент равен 27 его порядковый номер 9
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var s:=a.Distinct.OrderBy(x->x).Reverse.Skip(1);
if s.Count>0 then begin
var i:=a.FindIndex(t->t=s.First);
Writeln('Искомый элемент равен ',a[i],' его порядковый номер ',i+1)
end
else Writeln('Нет искомых элементов')
end.
Пример
n= 13
-7 -2 -32 9 21 -31 34 -34 27 -35 11 7 -10
Искомый элемент равен 27 его порядковый номер 9
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад