// 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
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в матрице:'); var m:=9; Writeln('*** Исходная матрица ***'); var a:=new real[n,m]; Randomize; for var i:=0 to n-1 do for var j:=0 to m-1 do a[i,j]:=Random(-100,100)/10; a.Println(5,1); Writeln(5*a.ColCount*'-'); var col:=1; Write('Средние арифметические: '); while col<=m-1 do begin Write(a.Col(col).Average:0:2,' '); col+=2 end; Writeln end.
