Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Christopher R
0 / 0 / 0
Регистрация: 20.02.2011
Сообщений: 6
1

Найти сумму всех элементов массива, кратных N

26.02.2011, 16:18. Просмотров 919. Ответов 4
Метки нет (Все метки)

Даны: массив А и целое число N. Найти сумму всех элементов массива, кратных N.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2011, 16:18
Ответы с готовыми решениями:

Найти сумму и количество всех элементов массива, кратных 3 и 5
Дан массив целых чисел. Найти сумму и кол-во всех элементов, кратных 3 и 5,...

Найти сумму всех четных элементов массива, максимальный элемент и его номер, количество элементов, кратных трем
Дан одномерный масив чисел. Найти сумму всех четных элементов массива,...

Найти сумму и произведение всех элементов одномерного массива, кратных заданному числу
Есть похожая программа, только с условием, больших заданного числа. Как...

Вычислите сумму квадратов всех элементов заданного массива X(N), за исключением элементов, кратных пяти.
Вычислите сумму квадратов всех элементов заданного массива X(N), за исключением...

Вычислите сумму квадратов всех элементов заданного массива X(N), за исключением элементов, кратных пяти
Вычислите сумму квадратов всех элементов заданного массива X(N), за исключением...

4
kofee"k
106 / 106 / 91
Регистрация: 08.01.2011
Сообщений: 171
26.02.2011, 16:29 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program tt;
uses crt;
const
  Nmax=10;
var
  a:array [1..Nmax] of integer;
  i,n:integer;
begin
  ClrSCr;
  writeln('Введите число');
  readln(n);
  for i:=1 to Nmax do begin
    a[i]:=random(100)-50;
    write(a[i],' ');
  end;
  writeln;
  writeln('Числа кратные ',n);
  for i:=1 to Nmax do
    if a[i] mod n =0 then
      write(a[i],' ');
  readln;
end.
0
Mad_Dog
Фрилансер
449 / 430 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
26.02.2011, 16:35 3
kofee"k, а где же сумма элементов, кратных N ?
0
kofee"k
106 / 106 / 91
Регистрация: 08.01.2011
Сообщений: 171
26.02.2011, 16:39 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
program tt;
uses crt;
const
  Nmax=10;
var
  a:array [1..Nmax] of integer;
  i,n,sum:integer;
begin
  ClrSCr;
  randomize;
  writeln('Введите число');
  readln(n);
  for i:=1 to Nmax do begin
    a[i]:=random(100)-50;
    write(a[i],' ');
  end;
  writeln;
  sum:=0;
  writeln('Числа кратные ',n);
  for i:=1 to Nmax do
    if a[i] mod n =0 then begin
      sum:=sum+a[i];
      write(a[i],' ');
    end;
  writeln('Сумма чисел кратных ',n,' равна ', sum);
  readln;
end.
И правда забыл про нее...
1
Christopher R
0 / 0 / 0
Регистрация: 20.02.2011
Сообщений: 6
28.02.2011, 16:01  [ТС] 5
спасибо
0
28.02.2011, 16:01
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2011, 16:01

Найти сумму кратных трём отрицательных элементов массива. Найти минимальный элемент массива и его индекс
Друзья!!! Помогите написать текст программы в Паскале: № 3. Сформировать...

Найти сумму элементов массива, кратных 3
1. Даны 2 массива 10 целых чисел, найти сумму элементов кратных 3 и вывести...

Найти сумму элементов массива, кратных заданному числу
Дан массив целых чисел. Найти: а) сумму нечетных чисел б) сумму элементов...


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

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

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