0 / 0 / 0
Регистрация: 28.10.2012
Сообщений: 35
1

Для каждого из массивов определить среднее арифметическое положительных элементов

10.10.2015, 19:31. Показов 715. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Есть одномерные материальные массивы А =[ai]l , В = [bi]m, С =[ci]n . . Для каждого из них определить среднее арифметическое положительных элементов и вывести их на экран, найти их сумму и вывести ее на экран и произведение отрицательных элементов и вывести их на экран. Создать процедуру ввода массивов.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2015, 19:31
Ответы с готовыми решениями:

Вычислить среднее арифметическое положительных элементов для массивов
Вычислить среднее арифметическое положительных элементов для массивов А(N1),B(N2),C(N3). Примечание...

Вычислить среднее арифметическое значение положительных элементов для массивов
Вычислить среднее арифметическое значение положительных элементов для массивов Р(к), L(m), Q(n).При...

Определить среднее арифметическое положительных элементов каждого столбца массива
Определить среднее арифметическое положительных элементов каждого столбца массива Х (25x25) при...

Вычислить среднее арифметическое положительных элементов и их количество для трех массивов
Вычислить среднее арифметическое положительных элементов и их количество для массивов...

6
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
10.10.2015, 19:40 2
что за паскаль и что за материальные массивы? по остальному:
  1. для каждого массива определить среднее арифметическое положительных элементов и вывести их на экран
  2. сумму чего???
  3. для каждого массива найти произведение отрицательных элементов и вывести их на экран
0
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
10.10.2015, 19:52 3
А чем материальные массивы отличаются от не материальных?
0
0 / 0 / 0
Регистрация: 28.10.2012
Сообщений: 35
10.10.2015, 20:32  [ТС] 4
Есть одномерные массивы А =[ai]l , В = [bi]m, С =[ci]n .
Создать процедуру ввода массивов.
Для каждого из них определить :
1)произведение отрицательных элементов и вывести их на экран.
2)сумму негативных элементов и тоже вывести на экран.

Далеко не верно дошло до меня задание)
Вот верный вариант
Я так полагаю что ни чем , просто решили схитрить с формулировкой наверное,поэтому оставим их просто массивами)
0
ZX Spectrum-128
10.10.2015, 20:42
  #5

Не по теме:

Цитата Сообщение от КнурМэн Посмотреть сообщение
негативных
А позитивные что? Нервно курят в сторонке?

0
0 / 0 / 0
Регистрация: 28.10.2012
Сообщений: 35
10.10.2015, 21:16  [ТС] 6
Испугались материальности

Добавлено через 27 минут
Так что , поможете ?
0
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
10.10.2015, 23:14 7
так среднее арифметическое или произведение?

Добавлено через 2 минуты
негативные - это какие?) вот у китайцев негативное - 4, в странах европы - 13. а в вашем понимании какое?

Добавлено через 2 минуты
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 InputArray(var ar: TArray; const c1, c2: Char);
var
    i: Byte;
begin
    Write(c2, '='); ReadLn(i);
    SetLength(ar, i);
    Write(c1, ':');
    for i := 0 to Length(ar) - 1 do
    begin
        ar[i] := Random * 50 - 25;
        Write(' ', ar[i]:0:3);
    end;
    WriteLn;
end;
procedure AvrPositive(const ar: TArray; const c: Char);
var
    i, count: Byte;
    sum: Double;
begin
    sum := 0; count := 0;
    Write('Positive elements of ', c, ':');
    for i := 0 to Length(ar) - 1 do
        if (ar[i] > 0)
        then
        begin
            Inc(count);
            sum := sum + ar[i];
            Write(' ', ar[i]:0:3);
        end;
    if (count = 0)
    then
        WriteLn(#9, 'No one!')
    else
        WriteLn(#9, 'AVR=', (sum / count):0:3);
end;
procedure MultipNegative(const ar: TArray; const c: Char);
var
    i: Byte;
    mult: Double;
    state: Boolean;
begin
    mult := 1; state := False;
    Write('Negative elements of ', c, ':');
    for i := 0 to Length(ar) - 1 do
        if (ar[i] < 0)
        then
        begin
            state := True;
            mult := mult * ar[i];
            Write(' ', ar[i]:0:3);
        end;
    if (state)
    then
        WriteLn(#9, 'Multiplication of negative = ', mult:0:3)
    else
        WriteLn(#9, 'No one!');
end;
var
    a, b, c: TArray;
begin
    Randomize;
    InputArray(a, 'a', 'l');
    InputArray(b, 'b', 'm');
    InputArray(c, 'c', 'n');
    AvrPositive(a, 'a');
    AvrPositive(b, 'b');
    AvrPositive(c, 'c');
    MultipNegative(a, 'a');
    MultipNegative(b, 'b');
    MultipNegative(c, 'c');
end.
вы там как-нибудь уж сами доопределитесь - суммы ли, произведения)
0
10.10.2015, 23:14
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2015, 23:14
Помогаю со студенческими работами здесь

Определить среднее арифметическое положительных элементов каждого столбца матрицы
Здравствуйте! Задача: дан двухмерный массив 5х6. Определить среднее арифметическое положительных...

Определить среднее арифметическое положительных элементов каждого столбца матрицы
Вот условие Дан двухмерный массив 5х6.Определить среднее арифметическое положительных элементов...

Определить среднее арифметическое положительных элементов каждого столбца матрицы
дан двухмерный массив 5х6. Определить среднее арифметическое положительных элементов каждого...

Определить среднее арифметическое положительных элементов каждого столбца 2D массива
Не знаю как делать дальше! Вот условие Дан двухмерный массив 5х6. Определить среднее арифметическое...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru