Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 20.11.2019
Сообщений: 9
1

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

20.11.2019, 12:21. Просмотров 1072. Ответов 3
Метки нет (Все метки)

Здравствуйте! Пожалуйста помогите мне написать код к заданию:
Дан одномерный массив А целых чисел длины N. Найти элементы массива, которые при делении на 7 дают в остатке 1, 2 или 5.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2019, 12:21
Ответы с готовыми решениями:

Найти все пятизначные числа, которые при делении на A дают в остатке B, а при делении на C дают в остатке D
Напишите программу, которая вводит четыре натуральных числа (a, b, c и d) и находит все пятизначные...

Переписать в файл G те элементы файла F, которые при делении на 5 дают в остатке 1 или 4
Создать файл F из целых чисел. Переписать в файл G те элементы файла F, которые при делении на 5...

Определить количество чисел, которые при делении на 7 дают в остатке 3
Даны натуральные числа a1, a2, a3, a4. а) верно ли, что одно число положительно б) Определить...

Найти сумму и количество тех элементов массива, которые при делении на 7 дают остаток 1, 2 или 5
помогите пожалуйста не могу решить 6. Даны массивы А(30), В(20), С(15) целых чисел. Найти сумму и...

3
0 / 0 / 0
Регистрация: 20.11.2019
Сообщений: 9
22.11.2019, 18:12  [ТС] 3
ZX Spectrum-128, как сделать чтобы в окне вывода первая строка была из рандомных элементов массива, а вторая из элементов этого же массива, которые при делении на 7 дают в остатке 1, 2 или 5
P.S я близок к этому(нет), хотя код получился, как по мне бредовый, но здесь первая строка в окне вывода работает как надо а во второй нули и я только познаю мир Паскаля, помоги исправить код, чтобы работал как надо)
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
var
    i : Byte;
begin
    WriteLn;
    for i := 1 to n do
    begin
        ar[i] := Random(50);
        Write(ar[i]:4);
    end;
    WriteLn;
end;
 procedure Zad6(const ar : TVector; const n : Byte);
var
    i : Byte;
begin
    for i := 1 to n do
        if ((ar[i] mod 7) in [1, 2, 5])
        then
        begin
        end;
end; 
var
    a : TVector;
    i: TVector;
  
    
  
begin
    Randomize;
    InitMass(a, n1);
    WriteLn;
    Writeln(i);
   
end.
0
1895 / 627 / 460
Регистрация: 15.01.2019
Сообщений: 1,940
22.11.2019, 21:31 4
Лучший ответ Сообщение было отмечено Smoothy77 как решение

Решение

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
program Project1;
 
const
    maxelem = 100;
 
type
    TVector = Array[1..maxelem] Of integer;
 
procedure InitMass(var ar: TVector; n: Byte);
{Процедура, которая заполняет массив случайными числами и выводит их в консоль}
var
    i : Byte;
begin
    for i := 1 to n do
    begin
        ar[i] := Random(51) - 25;
        Write(ar[i]:4);
    end;
    WriteLn;
end;
 
procedure Div7mod1and2and5(ar: TVector; n: Byte);
{Процедура, которая выбирает числа, которые при делении на 7 дают остаток 1, 2 или 5}
var
    i : Byte;
    flag: boolean;
begin
    flag:= true;
    for i := 1 to n do
        if ((ar[i] mod 7) in [1, 2, 5])
        then
          begin
            Write(ar[i]:4);
            flag:= false;
          end;
    if flag then
      writeln('Чисел с заданными свойствами не найдено.');
end;
var
  a: TVector;
  nelem: Byte;
 
begin
  randomize;
  writeln('Введите количество элементов в массиве:');
  Readln(nelem);
  writeln('Исходный массив:');
  InitMass(a,nelem);
  writeln('Выбранные числа:');
  Div7mod1and2and5(a,nelem);
  readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2019, 21:31

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

Поиск четырехзначных чисел, которые при делении на 133 дают в остатке 125, а при делении на 134 - 111
2.Составить программу поиска четырехзначных чисел которые при делении на 133 дают в остатке 125.а...

Переписать в файл G те элементы файла F, которые при делении на 5 дают в остатке 1 или 4
1. Создать файл F из целых чисел. Переписать в файл G те элементы файла F, которые при делении...

Найти все числа, которые при делении на a дают остаток b, а при делении на b дают в остатке a
Ввести два натуральных числа a и b, на промежутке от 1 до N найти все числа, которые при делении на...

Найти трехзначные числа, которые при делении на 47 дают в остатке 43
Составить программу поиска трехзначных чисел, которые при делении на 47 дают в остатке 43, а при...


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

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

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