Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
-LEX-
0 / 0 / 3
Регистрация: 24.08.2012
Сообщений: 76
1

Вычислить суммы положительных элементов массивов

05.10.2015, 16:17. Просмотров 827. Ответов 1
Метки нет (Все метки)

а) вычислить суммы положительных элементов массивов X(n), Y(m), Z(k).
б) переписать положительные элементы массивов X(n), Y(m) в массив Z. Запись в массив Z осуществлять в подпрограмме.

Реализовать программу с использованием процедур, и функций.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.10.2015, 16:17
Ответы с готовыми решениями:

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

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

Вычислить функцию L=2.7d-0.33sinb+e-c, где а,в,с- суммы элементов массивов Х, У, Z, соответственно, не премод
Вычислить функцию L=3.8d-0.66sinb+e-c, где а,в,с- суммы элементов массивов Х, У, Z,...

Вычислить в линейном числовом массиве суммы положительных и отрицательных элементов
Вычислить в линейном числовом массиве суммы положительных и отрицательных элементов. (Pscal)

Вычислить количество строк, где сумма отрицательных элементов по модулю больше суммы положительных
Изменив текст только основной программы, вычислить количество строк, где: сумма отрицательных...

1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
06.10.2015, 13:21 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

какой паскаль? ваш умеет в динамические массивы?

Добавлено через 11 минут
Если таки умеет
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
type
    TArray = Array Of Double;
procedure PrintArray(const ar: TArray; const c: Char);
var
    i: Word;
begin
    Write(c, ':');
    for i := 0 to Length(ar) - 1 do
        Write(' ', ar[i]:0:2);
    WriteLn;
end;
procedure GenerateArray(var ar: TArray; const c: Char);
var
    i, n: Byte;
begin
    repeat
        Write('Input length of ', c, '(1..255): ');
        ReadLn(n);
    until (n > 0);
    SetLength(ar, n);
    for i := 0 to Length(ar) - 1 do
        ar[i] := Random * 50 - 25;
    PrintArray(ar, c);
end;
 
function SumPositiveInArray(const ar: TArray): Double;
var
    Result: Double;
    i: Byte;
begin
    Result := 0;
    for i := 0 to Length(ar) - 1 do
        if (ar[i] > 0)
        then
            Result := Result + ar[i];
    SumPositiveInArray := Result;
end;
procedure CopyPositiveToArray(const a, b: TArray; var c: TArray);
var
    i: Word;
begin
    SetLength(c, 0);
    for i := 0 to Length(a) - 1 do
        if (a[i] > 0)
        then
        begin
            SetLength(c, Length(c) + 1);
            c[Length(c) - 1] := a[i];
        end;
    for i := 0 to Length(b) - 1 do
        if (b[i] > 0)
        then
        begin
            SetLength(c, Length(c) + 1);
            c[Length(c) - 1] := b[i];
        end;
    WriteLn('Z array length: ', Length(c)); WriteLn;
    PrintArray(c, 'Z');
end;
var
    x, y, z: TArray;
begin
    Randomize;
    GenerateArray(x, 'X');
    GenerateArray(y, 'Y');
    GenerateArray(z, 'Z');
    WriteLn;
    WriteLn('Sum X=', SumPositiveInArray(x):0:2);
    WriteLn('Sum Y=', SumPositiveInArray(y):0:2);
    WriteLn('Sum Z=', SumPositiveInArray(z):0:2);
    WriteLn;
    CopyPositiveToArray(x, y, z);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2015, 13:21

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

Найти произведение суммы четных и суммы нечетных элементов массивов
Здравствуйте. Прошу помощи в решении данной задачи, пытался сам ее сделать,но программа не...

Процедура поиска модуля суммы отрицательных элементов матрицы и суммы положительных
Написать две процедуры 1) поиск модуля суммы отрицательных элементов матрицы 2) поиск суммы...


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

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

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