Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 2
Регистрация: 13.03.2016
Сообщений: 50
1

В массиве подсчитать сумму разных чисел, а также вывести те числа, которые повторяются

27.04.2016, 00:32. Просмотров 1300. Ответов 6
Метки нет (Все метки)

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

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

Вывести числа, которые повторяются в массиве два раза
Дан массив размером 30 элементов, заполненный случайными числами от 0 до 9. Вывести на экран числа,...

Вычислить сумму всех чисел массива, которые повторяются и произведение всех чисел, которые не повторяются
Задано массив целых чисел A(n), n=<500. Разработать программу, которая вычисляет сумму всех чисел,...

Пользователь вводит 8 чисел, вывести числа которые повторяются 2 или больше раз
Я понимаю, в средние века за такой код сжигали на костре. Но я только учусь. Подскажите как...

6
пофигист широкого профиля
4011 / 2670 / 759
Регистрация: 15.07.2013
Сообщений: 15,599
27.04.2016, 00:52 2
Не сложно, но не интересно.
0
0 / 0 / 2
Регистрация: 13.03.2016
Сообщений: 50
27.04.2016, 00:56  [ТС] 3
Может передумаете?
0
492 / 395 / 259
Регистрация: 05.04.2013
Сообщений: 1,753
27.04.2016, 10:14 4
Udjen1488, берете переменную "сумма" присваиваете ей первый элемент массива, далее создаете цикл в котором есть еще один цикл от первого элемента до (i-1)-го, таким образом ищете вхождение i-го элемента, если нет, то сумма := сумма + i-ый элемента, если да то скидываете i-ый элемент куда-нибудь (в listBox в Edit и т.д.)
0
0 / 0 / 2
Регистрация: 13.03.2016
Сообщений: 50
16.05.2016, 17:56  [ТС] 5
Задание я данное не знаю как делать.... Мне говорили как это сделать но я всё равно не понял что тут и как сделать.
Прошу вашей помощи сделайте задание(как можно проще и понятнее)
Спасибо за внимание
0
10 / 9 / 4
Регистрация: 08.02.2016
Сообщений: 138
16.05.2016, 18:51 6
Лучший ответ Сообщение было отмечено Udjen1488 как решение

Решение

Delphi
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
program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
var a: array of integer;
    b: array of integer;
    n, k, i, j, sum, povt:integer;
begin
  sum:=0;
  write('Enter the number of array elements: ');
  readln(n);
  SetLength(a,n);
  for i:=1 to n do
    begin
      write('Enter the array element[',i,']: ');
      readln(a[i]);
    end;
  for i:=1 to n do
    begin
      if a[i]<>a[i+1] then
        begin
          sum:=sum+a[i];
        end
      else
        begin
          k:=k+1;
          Setlength(b,k);
          b[k]:=a[i];
        end;
    end;
  writeln('Sum= ' ,sum);
  for i:=1 to k do
    writeln('Repeated numbers: ', b[i]);
  readln;
end.
1
0 / 0 / 2
Регистрация: 13.03.2016
Сообщений: 50
16.05.2016, 21:45  [ТС] 7
Shuma_256, благодарю
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2016, 21:45

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

Поиск чисел которые повторяются в массиве
Привет. Мне нужно организовать поиск чисел которые повторяются в массиве(но так чтобы выводило...

Вывести элементы массива А, которые повторяются и одновременно есть в массиве В
Элементы массива А, которые повторяются и одновременно есть в массиве В #include &lt;conio.h&gt;...

Переписать все числа, которые повторяются в массиве A[n] в массив B[n] по одному разу.
Задано массив целых чисел A, n&lt;=200. Создать програму, которая переписует все числа, которые...

Удалить в массиве все числа, которые повторяются более двух раз
Удалить в массиве все числа, которые повторяются более двух раз.


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

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

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