<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Исходная матрица [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.Rows.SelectMany(x->x); var max:=s.Max; Writeln('Максимум ',max, ' встречается ', s.Where(x->x=max).Count,' раз(а)') end.
Var N,i:integer; X,S,F:real; Begin Write('N = ');ReadLn(N); Write('X = ');ReadLn(X); S:=1; For N:= 1 to N do Begin F:=1; For i:= 2 to N+1 do F:=F*i; S:=S+X/F; End; Write(S); End.
<span>Program Zerno;
Var
s,k:real;
i:byte;
Const
n=64;
Begin
s:=1;
for i:=1 to n-1 do
Begin
k:=exp(i*ln(2));
s:=s+k;
End;
Writeln('Количество зёрен: ',s,' штук');
Readln;
End.</span>
class Program { public static void main(String[] args) { Scanner Scan = new Scanner(System.in); int[] A = new int[10]; for(int i = 0; i < 10; i++) A[i] = 2*i+1; System.out.print(Arrays.toString(A)); } }