// 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.
Пишешь в ячейке:
"='Формула, там где должны быть значения - пишешь ячейки (Пример: C3)'"
Пример:
1 2
A 10 1
B =A1+A2
C
В ячейке В2 будет 11
Если изменить A1/A2 на 1, будет 12.
Если на -1, то будет 10