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

Найти сумму и количество тех элементов массива, которые при делении на 7 дают остаток 1, 2 или 5

24.03.2015, 20:18. Показов 3331. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
помогите пожалуйста не могу решить
6. Даны массивы А(30), В(20), С(15) целых чисел. Найти сумму и количество тех элементов массива, которые при делении на 7 дают остаток 1, 2 или 5. Для вычисления суммы и количества использовать процедуру.
8. Даны массивы А(30), В(20), С(60) целых чисел. Найти максимальный четный и максимальный нечетный элементы массива. Для вычисления использовать процедуру.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.03.2015, 20:18
Ответы с готовыми решениями:

Определить в массиве количество тех элементов, которые при делении на 3 дают остаток 2
Ввести двумерный массив A(3х4).Определить в нём количество тех элементов, которые при делении на 3...

Найти количество нечетных элементов массива и элементов, которые при делении на 7 дают остаток 1, 2 или 5
Дано линейную таблицу, которая содержит N целых положительных чисел. Найти количество тех элементов...

Определить среднее арифметическое тех элементов массива, которые при делении на 4 дают остаток 1 или 3
Ввести двумерный массив A4*3 Определить в нём среднее арифметическое тех элементов, которые...

Определить в файле среднее арифметическое тех элементов, которые при делении на 4 дают остаток 1 или 3
Ввести файл F из 13 элементов. Определить в нём среднее арифметическое тех элементов, которые при...

1
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
25.03.2015, 00:11 2
Лучший ответ Сообщение было отмечено ivaha123 как решение

Решение

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
const
    n1 = 30;
    n2 = 20;
    n3 = 15;
    n4 = 60;
 
type
    TVector = Array[1..n4] Of ShortInt;
 
procedure InitMass(var ar : TVector; const n : Byte);
var
    i : Byte;
begin
    WriteLn;
    for i := 1 to n do
    begin
        ar[i] := Random(51) - 25;
        Write(ar[i]:4);
    end;
    WriteLn;
end;
 
procedure Zad6(const ar : TVector; const n : Byte; var sum : Integer; var count : Byte);
var
    i : Byte;
begin
    for i := 1 to n do
        if ((ar[i] mod 7) in [1, 2, 5]) //лень писать сравнением
        then
        begin
            Inc(count);
            Inc(sum, ar[i]);
        end;
end;
 
procedure Zad8(const ar : TVector; const n : Byte);
var
    i, maxID, minID : Byte;
begin
    maxID := 1; minID := 1;
    for i := 2 to n do
        if (ar[maxID] < ar[i])
        then
            maxID := i
        else
            if (ar[minID] > ar[i])
            then
                minID := i;
    WriteLn('min, max = ', ar[minID], ', ', ar[maxID]);
end;
 
var
    a, b, c1, c2 : TVector;
    count : Byte;
    sum : Integer;
begin
    Randomize;
    InitMass(a, n1); InitMass(b, n2); InitMass(c1, n3); InitMass(c2, n4);
    sum := 0; count := 0;
    Zad6(a, n1, sum, count); Zad6(b, n2, sum, count); Zad6(c1, n3, sum, count);
    WriteLn('sum=', sum, #9, #9, 'count=', count); WriteLn;
    Write('Array A: '); Zad8(a, n1);
    Write('Array B: '); Zad8(b, n2);
    Write('Array C: '); Zad8(c2, n4);
end.

Не по теме:

вот почему я люблю динамические массивы...

0
25.03.2015, 00:11
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.03.2015, 00:11
Помогаю со студенческими работами здесь

Массив: Определить в нём среднее арифметическое тех элементов, которые при делении на 4 дают остаток 1 или 3.
Помогите пожалуйста решить, буду очень благодарен!! Ввести двумерный массив {A}_{4}_*_{3} ....

Определить количество элементов, которые при делении на 7 дают остаток 2 или 5
Задан массив Y(4,7). a. определить количество элементов, которые при делении на 7 дают остаток 2...

Определить среднее арифметическое тех элементов массива, которые при делении на 4 дают остаток 1 или 3
ввести одномерный массив А из 13 элементов. определить в нем среднее арифметическое тех элементов,...

Узнать количество элементов массива, которые при делении на 7 дают остаток 1,2 или 5
Пожалуйста, помогите. Заданый масив у(24). Узнать количество элементов, какие при дилении на 7...


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

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

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