Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 19.10.2016
Сообщений: 22
1

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

27.10.2016, 13:04. Просмотров 1568. Ответов 1
Метки нет (Все метки)


Сумму модулей элементов массива, расположенных после первого отрицательного элемента . Диапазон [-25;30] ( Function, procedure )
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.10.2016, 13:04
Ответы с готовыми решениями:

Вычислить сумму модулей элементов массива, расположенных после первого отрицательного элемента
дана целочисленная прямоугольная матрица вычислить сумму модулей элементов массива,расположенных...

Найти сумму модулей элементов массива, расположенных после первого элемента, равного 0
Доброго времени суток, Уважаемые формучане! Необходима помощь. Одномерные массивы В...

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю
В одномерном массиве, состоящем из N целочисленных элементов, вычислить: 1.Сумму модулей элементов...

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: 1) минимальный по модулю...

1
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
28.10.2016, 10:20 2
Лучший ответ Сообщение было отмечено shmika как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.10.2016, 10:20

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Вычислить сумму модулей элементов массива, расположенных после первого элемента
Сделал через массив, требуют через функцию. В одномерном массиве, состоящем из n целочисленных...

Найти сумму модулей элементов, расположенных после первого элемента, равного 0
помогите пожалуйста в одномерном массиве состоящнм из n уелых элементов вычеслить а) минимальный...

Вычислить сумму модулей элементов массива, расположенных после первого элемента, равного нулю
в одномерном массиве состоящем из n вычислить сумму модулей элементов массива расположенных после...

Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента
В одномерном массиве, состоящем из N вещественных элементов, вычислите: 1) количество элементов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.