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

Из элементов массива A, которые кратны 5, но не кратны 3, сформировать массив B

26.03.2015, 16:48. Показов 3684. Ответов 3
Метки нет (Все метки)

Здравствуйте, помогите пожалуйста решить задачу, готовую на паскале, но непонятную в самом требовании решить её математическим методом:
Дан массив A(M). Из элементов массива A, которые кратны 5, но не кратны 3, сформировать массив B.
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
const nmax=100;
Var A,B:array[1..nmax] of integer;
    i,m,n:integer;
Begin
    Repeat
      write('Введите количество элементов массива: ');
      readln(m);
    Until (0<m)and(m<=nmax);
    writeln('Введите ',m,' чисел');
    For i:=1 to m do
     read(A[i]);
    n:=0;
    For i:=1 to m do
     if (A[i] mod 5 = 0)and(A[i] mod 3 <> 0) then
     Begin
       n:=n+1;
       B[n]:=A[i];
     End;
    if n=0 then writeln('В массиве A нету элементов удолетворяющих условию')
    else
    Begin
      writeln('Массив B');
      For i:=1 to n do
       write(B[i],' ');
    End;
    readln;
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.03.2015, 16:48
Ответы с готовыми решениями:

Из элементов массива A, которые кратны 5, но не кратны 3, сформировать массив B
Помогите пожалуйста с задачей в паскале для курсовой работы : Дан массив A(M). Из элементов массива...

Определите сумму элементов последовательности, которые кратны 2, но не кратны 3
С оператором цикла While 3. Определите сумму элементов последовательности, которые кратны 2, но не...

Сформировать вектор М из элементов А[i], значения которых кратны 5 и не кратны 7
1.Дан целый массив А(n), nЈ 12. Сформировать вектор М из элементов А, значения которых кратны 5 и...

Напишите программу, которая выводит те элементы массива, которые кратны 3 и не кратны 5
Дан массив, состоящий из 10 целых чисел. Значение элементов задается случайными числами на отрезке ...

3
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
26.03.2015, 18:11 2
в самом требовании решить её математическим методом:
Это вам прямо так и откровенно преподаватель сказал?
Или он ткнул пальцем в строку № 14? И вы ничего вразумительного ответить не смогли?
0
0 / 0 / 1
Регистрация: 21.03.2015
Сообщений: 126
26.03.2015, 18:12  [ТС] 3
Если бы не требование препода...
0
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
26.03.2015, 18:33 4
Лучший ответ Сообщение было отмечено slavic_force как решение

Решение

элементов массива A, которые кратны 5, но не кратны 3
Это и есть вся математика. Реализована в строке № 14.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.03.2015, 18:33
Помогаю со студенческими работами здесь

Вычисление произведения тех элементов матрицы, которые кратны 3 и не кратны 2
Составьте программу вычисления произведения тех элементов двухмерного массива А(N,M), что кратны 3...

Получить массив В, состоящий из элементов массива А, которые кратны 2
Задан массив А(N). Получить из него массив В, состоящий из элементов массива А, которые кратны двум

Вычисление тех элементов двумерного массива, что кратны 3 и не кратны 2
составьте программу вычисления тех элементов двумерного массива A(N,M),что кратны 3 и не кратны 2....

Задан массив A(N), получить из него массив B, состоящий из элементов массива A, которые кратны двум
Задан массив A(N), получить из него массив B, состоящий из элементов массива A, которые кратны двум.

Одномерный массив: поиск количества элементов, которые кратны 3 и не кратны 5
Дан массив А . Составить программу поиска количества элементов массива которые кратны 3 и некратные...

Получить массив из элементов другого массива, которые кратны двум
Привет всем! Помогите пожалуйста составить Программу алгоритмов с использованием динамических...


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

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

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