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

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

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

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

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

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

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

1
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
25.03.2015, 00:11
Лучший ответ Сообщение было отмечено 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.03.2015, 00:11
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Создаем RESTful API с Laravel
Jason-Webb 28.04.2025
REST (Representational State Transfer) — это архитектурный стиль, который определяет набор принципов для создания веб-сервисов. Этот подход к построению API стал стандартом де-факто в современной. . .
Дженерики в C# - продвинутые техники
stackOverflow 28.04.2025
История дженериков началась с простой идеи — создать механизм для разработки типобезопасного кода без потери производительности. До их появления программисты использовали неуклюжие преобразования. . .
Тестирование в Python: PyTest, Mock и лучшие практики TDD
py-thonny 28.04.2025
Тестирование кода играет весомую роль в жизненном цикле разработки программного обеспечения. Для разработчиков Python существует богатый выбор инструментов, позволяющих создавать надёжные и. . .
Работа с PDF в Java с iText
Javaican 28.04.2025
Среди всех форматов PDF (Portable Document Format) заслуженно занимает особое место. Этот формат, созданный компанией Adobe, превратился в универсальный стандарт для обмена документами, не зависящий. . .
Динамические массивы в C++ - создание и использование
NullReferenced 27.04.2025
Динамические массивы представляют собой один из фундаментальных инструментов программирования на C++, позволяющий создавать структуры данных, размер которых определяется во время выполнения. . .
Асинхронный JavaScript: Промисы, Async/Await и Fetch API
Reangularity 27.04.2025
Пользователь заходит на веб-страницу, нажимает кнопку и. . . ничего не происходит. Сайт словно замер. Через несколько секунд всё внезапно оживает, но пользователь уже успел закрыть вкладку. Знакомая. . .
Management on GitLab and repository management in Visual Studio code
jigi33 27.04.2025
- repo management on GitLab - CI/ CD in GitLab - VCS repository management in Visual Studio code (see attachments)
Kanban или Scrum - что выбрать?
EggHead 27.04.2025
Kanban и Scrum — уже много лет удерживают лидирующие позиции среди гибких подходов. Руководители проектов и команды разработчиков то и дело сталкиваются с дилеммой: какой из этих двух методов выбрать. . .
Кастомные Middleware на C# в ASP.NET Core
UnmanagedCoder 27.04.2025
Разработка веб-приложений сегодня мало напоминает монолитное программирование прошлых лет. На смену громоздким блокам кода пришла модульная архитектура, где каждый компонент выполняет строго. . .
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint
run.dev 26.04.2025
JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru