Найти Сумму модулей элементов массива, расположенных после первого отрицательного элемента

@shmika · Регистрация: 19.10.2016

Сумму модулей элементов массива, расположенных после первого отрицательного элемента . Диапазон [-25;30] ( Function, procedure )

@JokeR.BY · 28.10.2016, 10:20

Pascal

type
    TVector = Array[Byte] Of ShortInt;
procedure InitAndPrintVector(var v: TVector; const len: Byte);
var
    i: Byte;
begin
    Randomize;
    Write('Вектор:');
    for i := 0 to len - 1 do
    begin
        v[i] := Random(56) - 25;
        Write(v[i]:4);
    end;
    WriteLn;
end;
 
function SumAbsAfterFirstNeg(const v: TVector; const len: Byte): Word;
var
    Result: Word;
    i, start: Byte;
begin
    start := 0;
    repeat
        Inc(start);
    until ((v[start - 1] < 0) Or (start >= len));
    Result := 0;
    for i := start to len - 1 do
        Inc(Result, Abs(v[i]));
    SumAbsAfterFirstNeg := Result;
end;
 
var
    vector: TVector;
    len: Integer;
begin
    repeat
        Write('Введите длину вектора (1..256): ');
        ReadLn(len);
    until ((len > 0) And (len < 257));
    InitAndPrintVector(vector, len);
    WriteLn('Искомая сумма: ', SumAbsAfterFirstNeg(vector, len));
end.

@shmika 0 / 0 / 0 Регистрация: 19.10.2016 Сообщений: 22
		1
	Найти Сумму модулей элементов массива, расположенных после первого отрицательного элемента 27.10.2016, 13:04. Просмотров 1568. Ответов 1 Метки нет (Все метки) Сумму модулей элементов массива, расположенных после первого отрицательного элемента . Диапазон [-25;30] ( Function, procedure ) 0

Опции темы

Найти Сумму модулей элементов массива, расположенных после первого отрицательного элемента

Решение