Для заданных N и X1,X2,.Xn написать программу, используя подходящую функцию

@4ibis · Регистрация: 30.11.2014

Студворк — интернет-сервис помощи студентам

пожалуйста помогите решить

$https://www.cyberforum.ru/cgi-bin/latex.cgi?r=\frac{x_k}{k!}-\frac{x_n}{N!}\ \ \ npu\ \ \ x_k=\max (x_1,x_2,...,x_n)$

@JokeR.BY · 01.12.2014, 00:22

$https://www.cyberforum.ru/cgi-bin/latex.cgi?r = \frac{max(x)}{(id max(x))!} - \frac{last x}{(elemCount)!}$
я правильно понял?

Добавлено через 7 минут

Pascal

var
    x : Array[1..100] Of ShortInt;
    i, n : Byte;
    maxID : Byte = 1;
 
function Fact(k : Byte) : LongWord;
var
    Result : LongWord = 1;
    i : Byte;
begin
    for i := 2 to k do
        Result := Result * i;
    Fact := Result;
end;
 
begin
    Randomize;
    Write('n='); ReadLn(n);
    for i := 1 to n do
    begin
        x[i] := Random(199) - 99;
        Write(x[i]:4);
        if (x[maxID] < x[i]) then
            maxID := i;
    end;
    WriteLn;
    if (maxID <> n) then
        WriteLn('r=', (x[maxID] / Fact(maxID) - x[n] / Fact(n)):0:3)
    else
        WriteLn('r=0');
end.

@4ibis 0 / 0 / 0 Регистрация: 30.11.2014 Сообщений: 20
		1
	Для заданных N и X1,X2,.Xn написать программу, используя подходящую функцию 01.12.2014, 00:03. Показов 1084. Ответов 1 Метки нет (Все метки) пожалуйста помогите решить $https://www.cyberforum.ru/cgi-bin/latex.cgi?r=\frac{x_k}{k!}-\frac{x_n}{N!}\ \ \ npu\ \ \ x_k=\max (x_1,x_2,...,x_n)$ 0

	01.12.2014, 00:22

Опции темы

Для заданных N и X1,X2,.Xn написать программу, используя подходящую функцию

Решение